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(57) Abstract 

A system for interactively controlling 
multiple paramaters affecting an audio out- 
put, the system employing a controller (12) 
with a visual display (18) (e.g., a cathode ray 
tube (100)) for displaying an icon that is a 
visual representation of an input sound sig- 
nal in a multidimensional space and an in- 
put device (e.g., a mouse (34)) used to con- 
trol the location of the icon on the display. 
The controller (12) generates a multiple par- 
ameter control signal that is based upon the 
location of the icon and is used by a sound 
signal processing circuit to control multiple 
parameters affecting an audio output. The 
icons are images of the sources of sound in- 
put signals. The sound signal processing cir- 
cuit has M times N controllable amplifiers 
(62) arranged in a M by N matrix in which 
each of the M inputs is distributed to N con- 
trollable amplifiers and the outputs of M 
controllable amplifiers are combined to pro- 
vide each of the N outputs. Each control- 
lable amplifier (62) has a unique combina- 
tion of an input signal and an output signal 
and receives a unique, continously variable 
gain control signal. 
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SOUND MIXING DEVICE 
Background of the Invention 
A portion of the disclosure of this patent 
5 document contains material which is subject to copyright 
protection. The copyright owner has no objection to the 
facsimile reproduction by anyone of the patent 
disclosure, as it appears in the Patent and Trademark 
Office patent files or records, but otherwise reserves 
10 all copyright whatsoever. 

The present invention relates to interactively 
controlling multiple parameters affecting an audio 
output . 

It is known to mix sound input signals into sound 

15 output signals using a sound mixing board which includes 
separate manually activated controls for each sound input 
signal. The sound input signals may include signals from 
a plurality of musical instruments and voices as well as 
sound effects. The controls may include pan (i.e., 

20 position) and gain (i.e., amplitude) controls. The sound 
output signals may be provided to speakers or any 
recording device. 

Sound input signals are mixed to control the 
position of the signal relative to a listener as well as 

25 to control the relative level of an input signal with 

respect to other input signals. The position of an input 
signal is controlled by adjusting the amount of the input 
signal which is provided to each output channel. E.g., 
for a stereo mix environment (i.e., an environment which 

3 0 includes a left output channel and a right output 

channel) an input signal which is located directly to the 
right of the listener is provided to the right output 
channel while the left output channel is attenuated. The 
relative level/position of the input signal is controlled 
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by adjusting the amplitude of the input signals which is 
provided to each output channel. 

It is also known to mix sound input signals using 
a computer system which imitates the controls of a sound 
mixing board. In such a computer system, the controls 
are displayed on the screen of the computer as they might 
appear on the mixing board. Steinberg/ Jones , Northridge, 
CA produces such a computer system under the trade 
designation MIMIX. 

It is also known to use external processors such 
as compressors, limiters, equalizers, reverb units, delay 
units, to achieve certain effects, e.g., in synthesizing 
sound or in editing of audio and audiovisual works. 

Summary of the Invention 

Our invention features in general a system for 
controlling multiple parameters affecting an audio 
output. The system employs a controller with a visual 
display (e.g., a cathode ray tube) for displaying an icon 
that is a visual representation of an input sound signal 
in a multidimensional space. An input device (e.g., a 
mouse) is used to control the location of the icon on the 
display. The controller generates a multiple parameter 
control signal that is based upon the location of the 
icon and is used by a sound signal processing circuit to 
control multiple parameters affecting an audio output. 
With the invention, the states of multiple parameters can 
be simultaneously controlled and usefully displayed, 
permitting precision and flexibility in real time dynamic 
sound control, and permitting the sound engineer to 
achieve complex mixes with a large number of parameters. 

In preferred embodiments a plurality of icons can 
be used to control a plurality of input sound signals. 
The parameters could include gains for respective outputs 
in a multiple output channel environment (e.g., a stereo 
mix or Dolby system) , one or more reverb parameters , 
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equalization parameters, filtering parameters, and 
compression parameters. The multidimensional space could 
""represent the physical location of a listener in a stereo 
environment relative to the sources of sound, and the 
5 display could include Jiard ^ lef t and hard rig jxt^r^gions 
and a nonlinear^adeoutr^gi^^ The units of gain 
associated with the display could be rescalable. The 
multidimensional space could alternatively represent a 
scene of an audiovisual work; locations in the space 

10 associated with locations in the scene would have 

associated audio parameters sets, e.g., stored in a 
lookup table. State information as to positions of the 
icons at any instantaneous time and change sin position 
with time can be stored for later playback, editing and 

15 syntheses . 

In another aspect, our invention features, in 
general, a system employing icons that are images of the 
sources of input sound signals on a visual display for 
interactively controlling multiple parameters affecting 

2 0 an audio output. This facilitates identification of the 
source of the input sound signal by the sound engineer, 
something that is particularly advantageous when there 
are a large number of input sound signals to control and 
monitor. 

25 In another aspect, our invention features, in 

general, a system for interactively controlling the 
modification of M input sound signals to provide N output 
sound signals. The system includes a sound signal 
processing circuit having M times N controllable 

30 amplifiers arranged in an M by N matrix in which each of 
the M inputs is distributed to N controllable amplifiers 
and the outputs of M controllable amplifiers are combined 
to provide each of the N outputs. Each controllable 
amplifier has a unique set of an input signal and an 

35 output signal and receives a unique, continuously 
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variable gain control signal. Such a system provides 
great flexibility in achieving complex sound mixes and 
complex real time changes in sound mixes. 

In preferred embodiments, each controllable 
5 amplifier includes a digital-to-analog converter (DAC) 
that receives a multibit gain control signal and a 
voltage controlled amplifier that receives the control 
voltage output of the DAC; the DACs have slew limiting of 
the control voltage to eliminate control voltage 
10 artifacts in the output signals; and a decoder circuit 
receives gain control signals for all controllable 
amplifiers with addresses identifying which gain control 
signals apply to which amplifiers. 

Other advantages and features of the invention 
15 will be apparent from the following description in a 
preferred embodiment thereof and from the claims. 

Description o f Preferred Embodiment 
The drawings are first briefly described. 
Drawings 

20 Fig. 1 shows a diagrammatic-block diagram of a 

sound mixing system according to the invention. 

Fig. 2 shows a schematic-block diagram of a 
decoder circuit of the Fig. 1 sound mixing system. 

Fig. 3 shows a schematic-block diagram of an 
25 arrangement of controllable amplifiers of the Fig. l 
sound mixing system. 

Fig. 4 shows a schematic-block diagram of line 
level trim circuits of the Fig. l sound mixing system. 

Figs. 5A and 5B show examples of displays for the 
3 0 Fig. i mixing system. 

Figs. 6A to 6C show a flow chart of a partial 
control module of the Fig. l sound mixing system, which 
is responsible for the real time mixing. 
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Fig. 7 is a block diagram of an alternative sound 
signal processing matrix configuration for the Fig. 1 
system . 

structure 

5 Referring to Fig. 1, in real time, interactive 

sound mixing system 10, computer system 12 communications 
with mixing circuit 14 via 16-bit data bus 16 (only 12 
bits are used in this embodiment) and 8 -bit address and 
control bus 17 (6 bits for address and 2 bits for 

10 control), as well as with display 18 (e.g., a color 
cathode ray tube (CRT)) via display interconnect 20. 
Computer system 12 includes computer 30 (e.g., an Atari 
104 OST) , which may be controlled via either keyboard 32 
or mouse 34, as well as storage media 36 (e.g., a disk 

15 drive) , RGB (red, green, blue) interface 38 and control 
module 40, which is software loaded on computer 30. (A 
computer listing for the software is incorporated herein 
as the Appendix.) Computer 30 utilizes a GEM operating 
system. The software for control module 40 is 

20 implemented in an interpretative and compilable GFA Basic 
(3.0 Version) available from Antic Software, San 
Francisco, California. Mouse 34 includes two activation 
buttons, right button 35a and left button 35b. Computer 
system 12 acts as an interactive controller that 

25 generates multiple parameter control signals provided to 
mixing circuit 14, which acts as a sound signal 
processing circuit that modifies input sound signals to 
provide output sound signals based upon the multiple 
parameter control signal. 

30 Mixing circuit 14 includes voltage-controlled 

amplifier (VCA) cross-point matrix 44, a programmable- 
gain matrix, which receives sound input signals (e.g., 
frame analog sound sources such as tapes, compact disks, 
synthesizers, musical instruments and voices) and 
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provides sound output signals to right and left line 
level trim circuits 46, 48. Trim circuits 46, 48 provide 
sound output signals to audio amplifier 50 , which provides 
audio output signals to left and right speakers 52 , 54 or 
recording devices. 

cross-point matrix 44 includes address decoder 
circuit 60, which receives address and control 
information over address and control bus 17, as well as a 
plurality of controllable amplifiers 62, which receive 
amplitude control information over data bus 16 as well as 
sound input signals via input channels 64, 66, 68, 70. 
Controllable amplifiers 62 provide sound output signals 
via output channels 72, 74. Each input channel 64, 66, 
68, 70 provides its respective input signal to a pair of 
controllable amplifiers 62, which each provide an output 
signal on a respective output channel 72, 74. 
Accordingly, the number of controllable amplifiers 52 in 
the VCA cross-point matrix is defined by the number of 
input channels times the number of output channels. 
(I.e., 2 output channels x 4 input channels = 8 
amplifiers) . 

Referring to Fig. 2, decoder circuit 60 includes 
an arrangement of three 3:8 decoders. More specifically 
enable decoder 80 (available under the trade designation' 
74LS138) receives three enable bits via address and 
control bus 17 and provides enable signals to decoders 
82, 84 (available under the trade designation 74LS138) 
which also receive three address bits and DATA CKL (one 
of the control bits) via bus 17. Decoders 82, 84 provide 
a plurality of active low enable signals LATCH DAC 0/ to 
LATCH DAC 9/. 

Referring to Fig. 3 , each controllable amplifier 
62 includes register circuit 90, which receives twelve 
bits of data via data bus 16, digital-to-analog converter 
(DAC) 92 (available from Analog Devices under the trade 



SUBSTITUTE SHEET 



- 7 - 



designation AD565) , which receives registered data from 
register circuit 90, and voltage controlled amplifxer 
(VCA) 94 (available from P.H.I. , Inc. under the trade 
designation 2120) , which receives a V DAC control signal 
5 from DAC 92 as well as a sound input signal via an input 
channel. VCAs 94 provide a logarithmic output gain from 
a linear voltage control input signal. A remote ground 
signal (VGND) is also provided to the gain adjust input 
terminal of each VA=CA 94; thus, the gain of all the 
10 VA=CAs is adjusted equally. 

Still referring to Fig. 3, the output terminals of 
four controllable amplifiers 62 are tied together to 
provide a summation of output currents and provide a 
signal to operational amplifier OP1 which provides a 
15 first sound output signal (e.g., the right sound output 

signal) . The output terminals of four other controllable 
amplifiers 62 are tied together to provide a second sound 
output signal (e.g. the left sound output signal) . 

Referring to Fig. 4, line level trim circuits 46, 
48 each include a DAC (not shown) , which receives a 
digital signal from data bus 16 and provides an input 
control signal (VDAC 8 or VDAC 9) to a respective VCA 
194. Each VCA also receives a sound output signal from 
one of the chains of controllable amplifiers. Each level 
25 trim circuit VA=CA 194 provides a sound output to the 
respective left or right channel of audio amplifier 50. 
Each channel of audio amplifier 50 includes a pair of 
cascaded operational amplifiers. 

Referring to Figs. 5A and 5B, sound mixing system 
30 10 uses display 18 to provide video display 100 which 

displays sound input signals in a two-dimensional sound 
output channel space. Fig. 5A shows an empty video 
display (i.e., the sound output channel space), while 
Fig. 5B shows a video display 100 which displays the mix 
35 of four input signals. The video display 100 of an 



20 
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output signal space for a stereo mix environment includes 
a mix portion 102 (the output channel space) which 
displays angle of displacement from center as e and 
radial distance, which is related to relative sound 
amplitude, in decibels (dB) . 

Mix portion 102 (where icons 106 are moved to 
actively mix an input signal) includes elliptical 
boundary 103 which delineates main mix portion 104 (where 
the majority of the mixing is accomplished) and nonlinear 
fadeout portion 107 (where icons are moved to gr^aTl7~~ 
fade an input sound signal to mute, i.e., -90dB) . At the 
bottom of main mix portion 104 are h^rd_^f^portioiLi04a 
and hard jright p ortion 104b. Main mix portion 102 also 
inclxides^mplitude indicators 109, which generally 
indicate attenuation relative to listener origin m, and 
position indicators 112, which generally indicate angular 
position relative to listener origin 111. Amplitude 
indicators 109 could be rescaled (e.g, to show 3dB 
increments instead of 5dB increments) , if desired. The 
20 position of mouse 34 is displayed by cursor 105, and 
input channels are displayed as icons 106, which are 
visual representations of the input sound signal sources. 
Icons 106 may have the appearance of the element 
providing the respective sound input signal. (E.g., a 
25 guitar which provides a sound input signal would have a 
guitar shaped icon.) 

Video display 100 also includes information 
portion 99, which provides information about input 
channels which are displayed on video display 100. 
information portion 99 includes active icon portion 108, 
which displays the "active" icon as well as mix 
information (e.g., left and right gain and angular 
displacement relating to that icon) , output channel 
portion 110, which provides information regarding the 
status of the output channels, events portion 114, which 



30 



35 



SUBSTITUTE SHEET 



- 9 - 



displays different, stored states (i.e., a particular 
configuration of icons) of a particular mix, groups 
(GRPS) portion 115, which displays whether the active 
icon is part of a group of icons which are configured to 
5 move together, and SMPTE (Society of Motion Picture and 
Television Engineers) time-code readout 117, which 
provides information relating to time reference coding of 
a particular mix. 

Operation 

10 Referring to Figs. 1, 5A and 5B, sound mixing 

system 10 is used to mix one or more sound input signals 
into a plurality of sound output signals by displaying 
the sound input signals in a multidimensional sound 
output signal space. (Figs. 5A and 5B show the output 

15 signal space for a stereo mix environment.) Mouse 34 and 
keyboard 32 are used to move icons representing sound 
input signals around the screen display representing the 
space of the sound output signals. As the icons are 
moved, the mix of the input signals changes. 

2 0 More specifically, when cursor 105 is positioned 

over an icon 106, right button 35a of mouse 34 is 
depressed, and that icon 106 becomes the active icon 
(i.e., the icon 106 which represents the input signal 
which is being mixed) . Left button 35b is depressed, and 
25 the active icon is moved around display 100 by moving 
mouse 34 according to known techniques. If both right 
and left buttons are depressed over the active icon, then 
the icon may be mo ved along ori^round a constant rad"±usrr^ > 
For example, in the stereo mix environment, as an icon 

3 0 moves around the central radius, the relative position of 

the sound input signal (i.e., the amount of the sound 
input signal being supplied to the right output channel 
and the amount of the sound input signal being supplied 
to the left output channel) changes. Also, as the icon 
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moves along the radius, the strength (i.e., the gain) of 
the sound input signal changes. Thus, by simply moving 
an icon to a desired mix position, the mix of the input 
sound signal is accomplished. After the mix of the input 
5 signal has been completed, the position of the icon on 
the display may be stored for future use with disk drive 
36. Referring to Figs. 6A-6C, a flow chart of control 
module 40 of real time mix system 10 is shown. Line 
references in the flow chart are to the lines of the 
10 listing in the Appendix hereto. More specifically, at 
initialization step 120, normalized coefficients are 
precomputed and ranges of variables are initialized. The 
left and right gain coefficients are computed using the 



20 two numbers in the parenthetical, and 

i = an angular position relative to a listener. 
The coefficients of dB v. angular position (relative to 
listener) are stored in a two-dimensional look-up table, 
thus, allowing module 40 to function faster because these 

25 coefficients need not be generated for every mix action. 

At real time mix step 122, control module 40 has 
finished its initialization and starts a mix of input 
sound signals to stereo output signals. 

At setup graphic buffers step 124, graphic buffers 

3 0 are provided so that a previous mix (such as a mix which 
is retrieved from disk drive 36) may be stored while a 
present mix is being generated. Also, in step 124, the 
resolution of display 18 is configured to allow computer 
3 0 to function in an environment having 32 0 locations in 

35 the x direction by 2 00 locations in the y direction. 



15 



following equations: 

left_dB_coef = 20 x IiOG 10 (MAX (SIN (90 - 
i) /2) ,0.001) 



right_dB_coef = 20 x LOG 1Q (COS (90 -i) /2) , 0 . 001) 
where: 

MAX = a function which provides the greater of the 




SHRSTITflTF SHEET 



- 11 ~ 

Also, computer 30 causes 32 0 by 200 pixels to be 
displayed on display 18 and mouse 34 to be initialized 
for this configuration. By initializing mouse 34 for 
this configuration, a location on display 18 corresponds 
to a functional location of computer 30. Thus, computer 
30 may be controlled simply by referring to cursor 105 
which is controlled by mouse 34 and displayed on display 
18. 

At icon step 12 6, control module 4 0 determines if 
any icons are present on display 100. If icons are 
present , then there is a preexisting mix of jnf orm afclg^;_^ 
if no icons are present, then there is no mix present 
and, thus, the mix need not be updated at this time. 

If there is an icon present, then at step 128, the 
graphics are updated. More specifically, the x and y 
coordinates of the icon are used to update all the values 
displayed on screen 100 as well as to update each 

controllable amplifier 62. % 

At step 130, mouse 34 and keyboard 32 ai^^sampledX 
to determine if any action has been taken. At step 132, 
the results of the sample are analyzed to determine if 
any special function keys have been pressed. If so, then 
step 134, which includes subroutines for the special 
functions, is used to instruct computer 30 how to react 
to a particular function key. Functions include: 
increase gain, decrease gain, pan left, pan right, etc. 

At step 136, video display 100 is scanned to 
determine i^cursor^_105u, which is controlled by mouse 34, 
is in mix portion 102 . If cursor 105 is not in the mix 
area, then at step 138, the mouse may be used to control 
special functions of control module 40 (e.g., the mouse 
may be used to control a pull-down menu) . The pull-down 
menu is an alternative to the special function keys used 
in step 132. 
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At step 140, control module 40 checks to see if 
right button 35a of mouse 34 has been activated. If so 
then, at step 142, control module 40 checks to see if any 
icon is targeted by mouse 34 (i.e., to see if the cursor, 
5 which is controlled by mouse 34, is positioned over an 
icon). If so then, at step 144, control module 40 
initializes a new icon and updates the graphics of active 
icon portion 108 of display 100 to indicated the new 
active icon. If no new icon is activated, then control 

10 module 40 continues to operate with a prior icon. 

At step 146, a moving average is set up for the 
moving mouse. More specifically, seven previous 
locations of the mouse are stored and weighted together 
in a conventional manner. Because module 40 is 

15 functioning so quickly, the seven previous locations are 
generated at a speed which is virtually transparent to 
the user and listener. Each time the mouse is updated 
(i.e., moved) then the standard traveling average is 
automatically updated. Thus, movements of the mouse 

2 0 provide a substantially continuously flowing output 

signal. The weighing function may be adjusted in a 
conventional manner to provide a faster or slower ramping 
movement of mouse 34, and thus of the mix. At step 148, 
the mouse position is analyzed to determine if DACs 92 

25 need to be updated (e.g., due to movement of mouse 34 or 
use of special functions) . If so the, at step 150, 
control module 40 updates the coordinates displayed by 
video display 100 and provided to controllable amplifiers 
62; mouse cursor 105 is also hidden so that mouse 34 

30 moves an icon 106 rather than cursor 105. 

At step 152, control module 40 determines whether 
mouse 34 is activated by toggling one or both of its 
buttons 35a, 35b. If mouse 34 is activated, then at step 
154, the x, y coordinates of mouse 34 are sampled, a 

3 5 weighted path for mouse 34 is computed, and a limit is 
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imposed to prevent the icon from moving beyond the mix 
zone. 

At step 156, gain information (r) and pan 
information (e) are computed relative to listener origin 
5 ill by converting standard x, y location values to polar 
coordinates relative to the listener origin. The 
listener origin may be different from the computer screen 
origin. E.g., in the stereo environment shown in Figs. 
5A and 5B, the listener origin is at the center, bottom 
10 screen. 

At step 158, left dB and right dB values are 
computed based upon the^^n^-^values . In general, the 
r value is first used to calculate a value for a "bels^ 
variable; if the icon _is_within region 104 , r is simply 
15 multiplied times a scaling factor »d-scale», which has a 
value of 0.1875; if the icon_j^gutsid e of reqlon 104 in , 
region 107, bels is calculated by first multiplying r 
^I^eTd^s^ale and then rescaling the value so obtained in 
a manner that provides realistic fadeout of the signal, 
20 the rescaling being a function of the value of bels and 
e. Following the computation of bels, it is determined 
if the icon is in an angle of acceptance 159 (see Fig. 
5B) . If not, left dB and right dB values are now 
computed using the coefficients stored in the look-up 
25 table which was generated at step 120. More 
specifically, 

dB_left = MAX(bels + dB_coef(a + 90,0), -90) 
dB_right = MAX(bels + dB_coef(a + 90,1), -90) 
where : 

3 0 dB_left = the variable left dB component for the 

active icon, 

dB_right = the variable right dB component for the 
active icon, 

MAX = a function which provides the greater of the 
35 two numbers in parenthetical, 
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a = angular location. 

If the icon is within angle of acceptance 159, 
then mono output signals (left and right gain equal to - 
3dB below the computed gain) are provided. More 
specifically, if the icon is located in the angle of 
acceptance, then: 

dB_left = MAX(bels-3,-90) , and 

dB_right = MAX(bels-3 , -90) , 

where 

MAX = a function which provides the greater 
of the two numbers in parenthetical. 

Thus, when an icon is in the angle of acceptance, 
dB left and dB right are equal, each being 3 dB less than 
the bels radius value. 

At step 160, the left and right dB values, which 
were computed in step 158, are displayed. 

At step 166, mouse 34 is checked to see if it is 
moving by checking the x, y location values. If it is, 
then, at step 163, a final check is performed to 
determine if cross-point matrix 44 should be enabled. If 
matrix 44 is enabled then, at sep 164, a six-bit address 
is generated; the address represents controllable 
amplifiers 62 which are assigned to active channels. 
This address is provided to decoder circuit 60. Decoder 
circuit 60 then provides enable signals to the DACs 
associated with the appropriate controllable amplifiers 
62. 

At step 166, control module 40 checks to confirm 
that the addressed controllable amplifiers 62 correspond 
to active channels. if the channels are inactive than at 
step 168, control module 40 instructs computer 30 to 
provide a mute signal to the addressed controllable 
amplifiers 62. 

If the channels are active, then, at step 17 o, a 
12-bit data word, which represents right gain, is 
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generated for the right output VCA 194, and a 12-bit data 
word, which represents left gain, is generated for the 
left output 194. A unity offset is included in these 
computations. The unity offset compensates for the 
5 offset of individual controllable amplifiers 62. More 
specif ically , 

right_gain « (offsetl - dB_right) x 20, and 
left_gain = (offset2 - dB_left) x 20, 
where 

10 offsetl = the offset of the right 

controllable amplifier, and 

offset2 = the offset of the left controllable 

amplifier 

Because VCAs 94 of controllable amplifiers 62 

15 provide a logarithmic output level for a linear input, 
the left and right input gain signals may be linear. 

At step 172, these data words are provided to 
controllable amplifiers 62. More specifically, DAC 92 of 
each activated controllable amplifier 62 receives this 

20 data word via register circuit 90 and provides a voltage 
(V DAC) to a respective VCA 94. VCA 94 receives the 
voltage which is linear and provides an output signal 
which is the appropriate dB level. DACs provide slew 
limiting of the control voltage to eliminate control 

25 voltage artifacts in the signal output. 

At step 174, the mouse coordinates of the active 
icon are updated, and, at step 176, the entire mix is 
updated. At step 178, the x and y coordinates are 
updated and the r and e values are stored for the active 

30 icon. At step 180, the keyboard is sampled to determine 
if there was any keyboard activity and at step 182 the 
mouse is scanned to determine if a constant R or e mode 
is chosen. If so then, at step 184, the data is computed 
to provide the icon along a constant R path or along a 

35 constant 0 radius. 
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Control module then returns to step 152 , and if 
mouse 34 is activated, repeats the mix for another icon. 
If mouse 34 is not activated then, at step 186, R and & 
are computed for the mouse location and, at step 188, the 
5 keyboard is scanned to determine if any special commands 
were generated. Special commands may include whether to 
store the mix and prepare to end the present mix session. 
If not, then control module 4 0 returns to sample mouse 34 
at step 130. If so, then the special commands are 
10 processed at step 190. Control module 40 then checks to 
see if the ESC key was pressed at step 192. If not, then 
control module 40 again determines whether any icons are 
present at step 126. If so, then control module 40 
terminates the mix at step 194. 

15 OTHER EMBODIMENTS 

Other embodiments of the invention are within the 
scope of the following claims. 

For example, system 10 may be used to mix input 
signals into greater than two output channels, e.g., a 
20 quadraphonic mix environment or a Dolby surround sound 
mix environment (having left front, center front, right 
front, and rear outputs) , and the visual display could be 
in three or more dimensions. 

Also, the icons could change in appearance (e.g., 
25 color, size, brightness) to indicate a change in 
parameter value (e.g., compression, equalization, 
grouping) . 

Additionally, regions may be defined in the 
multidimensional space, such that movement of an icon to 
30 that location will cause automatic generation of a 
control signal affecting any number of parameters. 

This mapping ability of the invention can, e.g., 
be used in mixing voice and music for film or television. 
When mixing for film or television, often music is mixed 
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with the narrative to enhance the presentation of the 
work. The music is often mixed somewhat lower than the 
narrative when narrative is present and is brought to 
near full level when there is no narrative , to fill in 
5 the gap. It is often necessary to limit the dynamic 

ranges of the narrative and the music to achieve better 
intelligibility. The narrative often has compression and 
limiting employed to contain the dynamic peaks of the 
announcer while the music is heavily compressed , so that 

10 no offending peaks interfere with the voice over and to 

keep the music from "dropping out" or disappearing in the 
mix. This compression of the music is made even more 
necessary if the music has a great dynamic range. When 
the music level is brought up to full level , in a case 

15 where there is no narrative, the excessive compression 
used for mixing under will be heard, often resulting in 
music without dynamics and sometimes audible "pumping" 
from the compressors inability to deal with the complex 
waveform. The engineer typically selects a compression 

2 0 ratio that achieves punch when the music is full and 

contains the music sufficiently when it is mixed under. 
Unless the engineer has special equipment at his 
disposal, the compression ratio parameter is not changed 
during a typical mix because it is too complicated to 

25 change that parameter or many parameters dynamically. 
Tracking a change in the mix of voice and music with a 
change in a parameter, such as compression ratio, is very 
difficult, especially if many changes are required. 

With the interactive control apparatus according 

30 to the invention, the change in compression slope can be 
mapped into the output space so that simply moving the 
icon to change gain also outputs control data to an 
external, dynamically controlled compressor that has its 
compression slope altered to fit the requirements for the 

35 music being full level or being mixed under to 
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accommodate the narrative. In such a case, the 
compression slope can be adjusted to precisely provide 
the optimum compression for the music under the music 
full periods. 

Another example for film mixing is the use of 
mapping templates for each scene of the movie. A 
template would consist of a 2-D or 3-D "floor plan" of 
the scene, setup by the engineer. Different areas would 
be outputted to dynamically control external audio 
processing devices, e.g., compressors, limiters, 
equalizers, reverb and delay units. If an icon is placed 
into any of these regions so mapped, the coordinates of 
the icon position are used to address data in a look-up 
table or derived from a function, and the data are 
outputted dynamically to the external device processing 
the audio channel represented by the icon. E.g., if the 
actor were to walk behind an object, the parameters for 
reverb, early reflection, and equalization could be 
altered to achieve the effect of someone talking from 
behind the object. These data outputted are in addition 
to the gain change to one or more output channels, e.g., 
based upon the position of the actor. The multiple 
parameter control data would also be layered, so that an 
icon placed in a region so mapped, would effect the 
change of one or more external devices associated with 
that channel or any other channel. Movement of one sound 
source could also be programmed to affect another sound 
source; e.g., if one sound source (associated with the 
active icon) moves in front of another sound source, the 
second source could be automatically attenuated even 
though its icon is not active. Different layers could 
also be selected or deactivated at will. An extra output 
bus of the gain matrix could be the source of the signal 
to the external processing, allowing one or more channels 
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to contribute to the signal sent to an external device, 
e.g., a reverb unit . 

The overall mapping concept could involve primary 
gain settings to the mix, secondary gain settings 
(dependent on or independent of the primary gain setting) 
to feed external processing, and control information for 
the dynamic alteration of external processing parameters 
(reverb decay, delay time, compression slope, limiter 
attack time, limiter release time, etc.) 

JThe return from the external processing device 
could re-enter the gain matrix on another previously 
unused or additional input channel and also be 
represented by an icon. As shown in Fig. 7, two output 
busses 202, 204 from matrix 206 feed signals into two 
independent audio effects processors 208, 210 that are 
dynamically reprogrammable via MIDI control line 212. 

Output busses 224a, 224b are for the main mix and 
are used to feed the recording device or listening 
apparatus. Busses 22 6a, 226b are the effect busses used 
to provide primary feeding back into processors 208, 210. 
Module 220 allows monitoring the output of mix busses and 
effect busses to confirm proper operation. 

Due to the universal nature of the variable gain 
matrix, all input channels can contribute to a main 
stereo mix while one or more dependent or independent 
submixes can be outputted to the external effects 
(reverb, delay, pitch ...), as well as monitoring busses 
(222a, 222b) . Dependent means software simulation of 
post fade, and independent means software simulation of 
prefade. Prefade and post fade are terms used on 
conventional consoles to indicate if a submix is after 
the main channel fader (dependent) or before the main 
channel fader (independent) . The stereo returns from the 
external, effect devices are re-entered into the variable 
gain matrix, and can therefore contribute to the main mix 
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or one or more submixes. The software will disallow or 
mute the various nodes that might contribute to feedback* 
With an M x N variable gain matrix employed, main 
channel signals as well as effect returns can be uniquely 
5 controlled from the interactive controller. The outputs 
of the matrix could feed recording devices, effect 
processors, monitoring busses. For instance two busses 
222a, 222b could be dedicated as a monitoring buss. 
Because the buss is easily reconf igurable via software, 

10 this monitoring buss could be dynamically reconfigured 
for stereo "in-place" solo, normal stereo monitoring, 
group solo, mute in monitor but not in main mix, prefade 
(independent) listen, etc. 

The variable gain matrix in a large enough 

15 configuration functions as a universal, dynamically 
reprogrammable "console" with a graphics front end. 
Under software control, configurations that must be 
"hardwired" into a current console, can be simulated via 
manipulation of the various gains at various matrix 

2 0 nodes . 

The system may also be used for theater playback 
to play back special effects, in recording studios for 
the main mix or for special mix effects, in television 
post production for the main mix or for easy repeatable 
25 automated stereo mixing to timecode, in live performances 
to allow the mixing to be remote from the amplifiers 
(e.g., by using an optical link for busses 16, 17), in 
pavilions to allow live mixing to the audience from one 
or more tracks, in radio production rooms where space and 

3 0 versatility are a factor, in mixing sound effects for 

simulators (e.g., aircraft, space, submarine) or in 
satellite mix-minus setups to allow easy recall of 
complicated mixes. 

Besides interactive input devices that permit 
35 direct interaction with the sound engineer, other sources 
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of controlling information can be used to change the 
position of icons and appearance, e*g. , a completely 
independent computer drive console, a source of MIDI 
data, a MIDI sequencer, a source of computer generated 
5 data, and an external audio or visual editing system. 
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APPENDIX A 



.he Page # \t> \r Copyright Voyager Sound 1985-1989 // Ver 0.70 // Devitt 

IF XBIOSC4)<>1 

ALERT 1," System must be J in med. rez", 1 , ,! AB0Rf \ i& 
EDIT 



EKDIF 



verWW. 0.70 - under developement - 8/28/S^ 1 



the_head: 

i 

IF EXISTrt:*.^') 
port_write! =FALSE 
develope!=TRUE 
CKDRIVE f k:\ f 
CHDIR ^VOYAGER.GFaX 1 

ELSE 

port_write!=TRUE 
develope!=FALSE 
CHDRIVE % az\ 
END IF 



IF EXISTC vgr_ray.raw) ! if file exists then load 
SET COLOR 0,0,0,0 
SETCOLOR 1,4,4,4 
SETCOLOR 2,7,7,7 
SETCOLOR 3,0,7,7 
BLOAD "vgr.ray.raw'VxBIOSCS) 
REPEAT 

UNTIL MOUSEK 
CLS 
END IF 

i 

ON BREAK GOSUB abort ! a simple way out 
ON ERROR GOSUB whoops ! if system error 
' debug! =TRUE 1 the debug flag 



! does HARD DISK exist ? 
! disable I/O to Voyager matrix, the final enable 

! default to HARD DISK 



autoload! =TRUE 
weight 1=TRUE 



! auto load icons 

! weighted mouse during mix ? 
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45 ainitialize ! setup storage, get things read/ 

46 amainjnenu(TRUE) ! setup main menu tree, process whole routine 

47 ' 

48 main_loop: 

49 t%=TIMER 

50 DEFTEXT 3,16,0,32 

51 GRAPHMODE 1 

52 TEXT 0,170,630 /Voyager Sound Graphic Mix" 

53 COLOR 1 

54 vgr_logo<639/2, 199-60, 1.5, 0.75) I output Uoyds VGR logo 

55 00 

56 VSYNC 

57 keyl=lNKEY$ ! sample keyboard 

58 If TlMER-t%>400 

59 buffer1S=TIMES ! get snapshot of time 

60 buffer2S=" ! clear buffer 

61 FOR i&=1 TO 8 ! convert to special characters 

62 buf f er3S=MIDS<buf f er1S, i&, 1 ) 

63 buffer2S=buffer2$+CHRS(ASC(buffer3$>+(32*<buffer3$<>":")>) 

64 NEXT i& 

65 DEFTEXT 1,1,0,8 

66 TEXT 530,195, 100, buffer2$ 1 output the time 

67 t%=TIMER 

68 PRINT tex_color1S; 

69 message< f kake Henu Selection...) 

70 END IF 
71 

72 IF keySs"" ! clear screen with space bar 

73 CLS 

74 m_colorsC1> 

75 Sma i njnenuC FALSE ) 

76 ENDIF 

77 ' 

78 speciel_key&=ASCtkey$) ! % 

79 IF speciel_key&=4 ! dump variables to printer 

80 ALERT 2,'variable Dump to printer", 1," YES | No",i& 

81 IF i&=1 

82 FOR i&=65 TO 90 

83 DUMP CHR$(i&) TO 'Vrn" 

84 NEXT i& 

85 FOR i&=65 TO 90 

86 DUMP *fl{VcHR$( i&) TO '^RN:" 

87 NEXT i& 

88 FOR i&=65 TO 90 

89 DUMP ":"+CHR$(i&) TO >RN:" 
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90 NEXT i& 

91 END IF 

92 END IF 
93 

94 IF specie I Jcey&=6 ! 'V 

95 ALERT 2/Variable Dump to files", 1 " YES J No",i& 

96 IF i&=1 

97 message^bumpi ng . . .") 

98 DUHP " TO 'var_dump.txt" 

99 DUMP V TO 'subdump.txt" 

100 DUHP TO "lab.dump.txt" 

101 message^'sorting...") 

102 sort^fi le^var^dump.txt") 

103 sort_f ile( l, sub_cxJIp.txt ,, ) 

104 sort_f i te("lab_dump. txt") 

105 messaged) 

106 END IF 

107 END IF 

108 ON MENU 

109 LOOP 
110 
111 
112 
113 
114 
115 
116 
117 

118 DEFFN i_ir*:_limit(no&,irK^,in^ ! integer 

119 DEFFN f_irx:_Umit(no,irK: r mn,mx)=*IN^ ! floating 

120 ' - 

121 ' 

122 PROCEDURE direct I handle real time mouse / icon input - for stereo mix 

123 CLS 

124 screen_buf f er_preset<1 r niix_screen$) 

125 8low_rezC2) ! to low rez 

126 1 

127 SPUT mix_screen$ 
128 

129 SETM0USE 155,155 

130 key_clickC0) ! turn key-click off 

131 ~XBIOS(35,U:0,U:0) I turn repeat off 

132 STICK 0 

133 DO 
134 



no& * # to increment 
inc& = increment value 
mn& = minimum value 
mx& = maximum value 
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135 IF icon_count&>0 

136 ©update 

137 END IF 

138 DO 

139 key*=INKEYS ! sample keyboard 

140 HOUSE x&,v&,k& 
HI 

142 special Jcey&=CVI(keyS> I if special key 

143 SELECT specialjcey* 

144 CASE 72 I up arrow 

145 dgain(active_icon&, i nc remen t_ga i n& ) 

146 SETHOUSE xc&(acti ve_icon&),ye&<acti ve_icon&) 
147 

148 CASE 80 ! down arrow 

149 Sga i n< act i ve_i con& , - ir>crement_gai n& ) 

150 SETHOUSE xc&( active J cor£),yc&( act ive_iccNT&) 
151 

152 CASE 75 ! left arrow 

153 Span( act i ve_i con&, - increment _pan&) 

154 SETHOUSE xc&(act ive_icon&) # yc&<active_icon&) 

156 CASE 77 ! right arrow 

157 apanCactive^iconS, increment_pan&) 

158 SETHOUSE xc&<active_icon&),yc&<active_icon&) 
159 

160 CASE 60 ! F2 key 

161 IF roouse_cursor_toggle! 

162 STICK 0 

163 mouse_cursor_toggle*=FALSE 

164 key_click<0) 

165 ELSE 

166 OUT 4,&HA,50,5 ! turn on cursor returns with mouse move 

1 67 mouse_cursor_togg I e ! =TRUE 

168 key_click(1> 

169 END IF 
170 

171 CASE 98 ! help key 

172 IF HOUSEY<y_limit& ! select new ramp_adjust level 

173 RESTORE ramp_menu_data_00 

174 ramp menu_data_00: 
175 

176 DATA " Select ramp rate " 

177 DATA .1,. 25, .5,1,1.5,2,3,5 

178 DATA 'kxx" 

179 pop_menu(198,y_limit&,f lag$) ! pop_menu a procedure cell 
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180 ' 

181 IF VAL(flag$)>0 

182 ramp_adjust=VALCf lag$) ! assign new ramp_adjust 

183 END IF 

184 ELSE 

185 RESTORE help_menu_data_00 

186 h e I p_menu_da t e_00 : 

187 DATA 'blRECT M00E FUNCTION KEY^' 

188 DATA 'Vl - Toggle constant magnitude / angle" 

189 DATa'V2 - Toggle mouse direct mode" 

190 DATA 'V3 - 1 

191 DATA 'V4 

192 DATA 'Vs - Toggle deactivation of icon 

193 DATa'V6 - Display last event" 

194 DATA 'V7 - Display next event" 

195 DATA *V8 - " 

196 DATA tx F9 - Overwrite current event" 

197 DATA *V10 - Append to event list" 

198 DATA - Toggle weighted mouse" 

199 DATA "s - Solo" 

200 DATA"" 

201 DATA 'feETURN - Add Icon To Hix" 

202 DATA "SPACE BAR - Lock On House" 

203 DATA *D *fc Pan Icon" 

204 DATA "V 26 Gain Icon" 

205 DATAW 

206 pop_menu(20,y_limit& f f Lag*) 

207 END IF 
208 

209 CASE 63 ! F5 key deactivate 

210 IF active! Cacti ve_icon&) 

211 active! <active_icon&)=FALSE 1 toggle logic 

212 dac_outCactive_icon&-1,&HFFF> ! shut off channel 

213 dac_out Cacti ve_i con&+3 , &H F F F ) 

214 FOR i&=1 TO icon_count& ! re-assign active icon 

215 IF activelCi&> 

216 active_icon&=i& 

217 END IF 

218 NEXT i& 

219 update 

220 END IF 
221 

222 CASE 67 ! F9 key OVERWRITE 

223 sound_3 

224 PAUSE 5 
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225 sound__3 

226 FOR i&=1 TO icon_count& 

227 mix_data_xc&(event_show&, i&)=xc&< i&) 

228 mix_data_yc&(event_show&, i&)=yc&(i&) ! i& = icon number 

229 mix_data_activel<event_show&,i&)=actfve!(f&) I store active data 

230 mi x_da ta_dac( event_number& , i & , 0 >=db_l ef t ( i & ) 

23 1 mi x_date_dac< e ven t_number& , i & , 1 >=db_r i gh t ( i & > 

232 NEXT i& 

233 mix_data_icor*(event_show&>=active_icon& 

234 ' 

235 CASE 68 ! MO key APPEND 

236 sound_3 

237 event_number^MIN(event_nu3toer&+1 ,eventjnax&) 

238 event_showfc=event_number& 

239 ATEXT event_x&,event_y&,0,STRS(event_show&,3) 

240 ATEXT event_x&, event_y&+8,0,STR$(event_show&,3) 

241 FOR i&=1 TO icon_count& 

242 mix_data_xc&<event_number&, i&)=xc&( i&) 

243 mix_date_yc&(event_rxjmber&, i&)=yc&(i&) ! i& = icon number 

244 mix_o^ta_BCtive!(event - nuTber&,1&)=active!<i&> ! store active data 

245 mix_o^ta_o^c(event_nijrber&,i& # 0)=db_left(i&) 

246 mix_date_dec(eventjTunber&, i&, 1 )=db_right C i&) 

247 NEXT i& 

248 mix_G^ta_icon&Cevent - number&>*active_icon& 

249 1 

250 CASE 65 I F7 key INCREMENT SHOW 

251 event_shou&=MIN(event_show&+1 ,event_number&> 

252 ATEXT event_x&,event_y&,0,STRS<event_show&,3) 

253 FOR i&=1 TO icon_count& 

254 active! ( i &)=mix_data_acti ve! <event_shou&, i&) 

255 xc&(i&>=mix_data_xc&(event_show&,i&) I update temps with data 

256 yc&<U>=mix_date_yc&<event_show&, i&) 

257 db_left(i&)=mix - data - dac<event_show& f i& # 0) 

258 db - right(i&>=mix_data_dac(event_show& # i&,1) 

259 chennel_out<i&> 

260 set_x_y(i&,xc&(i&),yc&(i&)) I set up and display icon 

261 NEXT i& 

262 act_upd(mix_data_icon&<event_show&)) ! new active icon 

263 ' update 
264 

265 CASE 64 ! F6 key DECREMENT SHOW 

266 even t_show&=HAX ( e ven t_sh ow& - 1,1) 

267 ATEXT event_x&,event_y&,0,STRS(event_show&,3) 

268 FOR i&=1 TO icon_count& 

269 active! (i&)=mix_data_active! <event_show&, i&) 
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270 xc&(i&>=mix_datB_xc&(event_shou&, i&) I update temps with data 

271 yc& ( i & ) =m i x_da t e_y c& ( even t_sh ow& , i&) 

272 cto_leftCi&>=tnix_data_dac<event_6ho«& # U f 0) 

273 db_right< i & ) *mi x_da t e_da c ( e vent_show& , i&,1) 

274 chanr>el_out(i&) 

275 set_x_y<i&,xc&(i&),yc&Ci&)> I set up and display icon 

276 NEXT i& 

277 ec t_upd (mi x_da t e_ i c orA < e ven t_sh ow& ) ) ! new active icon 

278 ' update 
279 

280 ENO SELECT 

281 ' 

282 DEFFN aJceyC test* )=( NOT specialjceyfc) AND (UPPERS(key$)=UPPER$(test$)) 

283 ' 

284 IF aaJceyM 

285 weight! =N0T weight! 

286 sound_3 

287 IF weight! 

288 ATEXT 27,60,0,'WoUSE IS WEIGHTED" 

289 ELSE 

290 ATEXT 27,60,0/kxiSE IS KOT WEIGHTED* 1 

291 ENDIF 

292 ENDIF 
293 

294 IF aaJceyc'S') 

295 solo 

296 ENDIF 
297 

298 IF x&>x_limit&-12 ! set horz. mouse limits, rez change 

299 x&=x_lirait&-12 

300 SETHOUSE X&,yfc 

301 ENDIF 
302 

303 IF y&<y_li«rit& AND mouse_toggle1 ! ! toggling the mouse 

304 DEFHOUSE 0 

305 mouse_togg I e1 1 = FALSE 

306 tnouse_toggle2!=TRUE 

307 ENDIF ! create a flip / flop state 

308 IF y&>y_Umit& AND mouse_toggle2! 

309 DEFHOUSE mouse$(1) 

310 mouse_toggle1 !=TRUE 

311 mouse_toggle2!=FALSE 

312 ENDIF 
313 

314 DO WHILE H0USEY>15 AND HOUSEY<30 AND HOUSEK 1 ramp output channels 
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315 SELECT HOUSE K 

316 CASE 1 

317 ramp_out=3f_i nc_l imi t ( ramp_out , ramp_ed j ust , ramp_low, ranp_h i gh ) 

318 CASE 2 

319 ramp_out«^f_ i nc_ I i mi t ( ramp_out , - ramp_adj us t , ramp_ I ow , rorap_h i gh ) 

320 ENOSELECT 

321 »vca_gain_set<8, ramp_out ) 

322 avce_sain_set(9, ramp__out) 

323 ATEXT 192,49, 0,STRS<ramp_out, 5,1 > 

324 SHOWN. 

325 PAUSE ramp_delay& 

326 LOOP 
327 

328 IF k&*2 AMD y&>y_limit& ! right mouse button activity 

329 8icon_select<hit! ) ! if right mouse button, select icon 

330 IF hit! I if an icon is selected 

331 IF oldJcon&=active_icon& ! are we on the same icon ? 

332 Qold_position 

333 ELSE 

334 o I d_i con&=act i ve_i con& 

335 END IF 

336 END IF 

337 same_icon!=FALSE 

338 3screen_wr i te< 0 ) 

339 END IF 

340 1 

341 IF key*=CHRS<8) ! backspace 

342 3old_position 

343 END IF 

344 ' 

345 IF weight! ! preset moving average 

346 pre_weight<x&,y&) 

347 END IF 
348 

349 key_space!=(key$=" ,t ) ! setup test for space bar 

350 IF <((ox&<>x& OR oy&Oyfc) AND <MOUSEX<>x& OR MOUSE Y<>y&)> OR k& OR key_space! > AND 
y&>y fc linrit& 

351 x_old_icon&=xc&(active_icon&) 

352 y_old_icon&=yc&<active_icon&) ! save old coordinates 

353 mi x_swi tchl ! =TRUE 

354 HIDEH 

355 WHILE k&=1 OR k&=3 OR key_space! > inner mouse loop 

356 IF key_ space! AND inix_switchH 

357 SETMOUSE ox&,oy& ! if first time, move mouse to icon 

358 pre_weight(ox&,oy&> ! update weight mouse data 
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359 mix_switch1 !=FALSE 

360 END IF 

361 IF weight! 

362 MOUSE mosxX(5),mosy%(5),k& 1 preset array 

363 RCALL weightedX, cnosxXC ) 

364 RCALL weigh ted%,mosy%() ! call assembly routine 

365 x&=mosx%(7) ! data beck from array 

366 y&=mosy%(7) 

367 ELSE 

368 MOUSE x&,y&,k& 

369 END IF 

370 IF x&>x_limit& ! impose mouse limits, pseudo low-rez 

371 x&=x_limit& 

372 SETMOUSE x&,y& 

373 pre_weight<x&,y&) 

374 END IF 

375 IF y&<y_limit& ! set Y mouse limit 

376 y&=y_limit& 

377 SETMOUSE X&,y& 

378 pre_weight(x&,y&) 

379 END IF 

380 apolar(FALSE) ! call polar conversion 

381 Sdecibels ! call decibel conversion 

382 IF x&Oox& OR y&Ooy& 

383 1 nridi alternate screen here-deleted 

384 IF gainjnatrix! 

385 ©channel outCactive icon&) ! send to dacs active icon 

386 END IF 
387 

388 xc&< act i ve_i con& ) =x& 

389 yc&(active_icon&)=y& 

390 Sscreen_write(0) ! re-draw all active icons 

391 END IF 

392 ox&=x& 

393 oy&*y& 

394 mag&(active_icon&)=r& 

395 ang&(active_icon&)=a& I update magnitude & angle 

396 same_icon!=FALSE 
397 

398 mix_key1S=INKEYS ! read the keyboard 

399 IF ^lix_key1$<> ,,, 1 bypass all tests if no character 

400 IF mix_key1$= M,t | end the lock down if space is pressed 

401 key_space!*FALSE ! cancel loop 

402 IF solo_logic! 

403 solo off 
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404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
same_icon! ) 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 



ENDIF 

. -.Mil 

key$= 
END IF 



IF <mix_key1$> , y , > AND (mixJcey1S<?Y') 



key$=mix_key1S 
IF solo_logic! 

so Logoff 
END IF 
active 

i 

pre_we i gh t ( ox& , oy& ) 
EKDIF 



! change active icon by numbers 



I preset weight mouse 



IF UPPER$<mixJcey1$)=S 

IF mix_solo! ! a little reverse logic 

so logoff 

mix_solo!=FALSE 
ELSE 

solo_on 

mix_solo!=TRUE 

END IF 

ENDIF 
i 

ENDIF 



WEND 



IF i_cur! AND «<ABSCSUB<ox&,x&)»delta& OR ABS(SUB<oy&,y&>)>delta*)> OR 



ascreen_write(1> 
same_icon! =TRUE 
ENDIF 

apolar(TRUE) 
SHOW* 
ENDIF 

i 

EXIT IF keySO* 



! re-draw with cursor 



test keyboard once each pass 



LOOP 



IF keyS=CHRS(13) ! a carrage return to get new icons 

Sget_icon ! select icon from menu 

ENDIF 
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448 1 

449 IF keyS^tf AMD keyS^':" ! test for ket limits 

450 Sactive I change active icon numerically 

451 END IF 
452 

453 ' special key is pressed 

454 IF special_key&=59 ! F1 function key, toggle constant r or a 

455 mag!=NOT mag! 

456 IF icon_count&>0 

457 SETHOUSE ox&,oy& 

458 END IF 

459 END IF I end special funtion keys 

460 ' other function keys here 
461 

462 EXIT IF ASCCkeyS)=27 ! escape to main menu 
463 

464 LOOP 

465 CLS 

466 £med_rez(0) t change rez back to medium 

467 key_click(1> ! on 

468 ~ XBIOS(35,U:20,W:2> ! restore keyboard repeat" 

469 RETURN 

470 ' 

471 PROCEDURE get_num<init&> ! get a multi-digit number with time out 

472 LOCAL tX 

473 n&=init& 

474 tX=TIHER 1 setup time out 

475 REPEAT 

476 REPEAT 

477 aS=INICEY$ 

478 UNTIL LENCaS) OR HOUSE* OR TIHER-t%>delay& 

479 n&=10*n&+VAL<a$) 

480 UNTIL aS^tC OR aS>V OR MOUSEK OR TIMER- t%>delay& 

481 n&=n&/10 

482 a**" 

483 RETURN 

484 ' - 

485 PROCEDURE load_screen(bS,pal ! > 

486 IF NOT autoload! 

487 FILESELECT y.PH n ,bS,f i le* 

488 IF fileS=* 

489 GOTO neverjnind ! abort file load 

490 END IF 

491 ELSE 

492 fileS=bS 
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A 93 END IF 

494 BLOAD f ile$,XBIOS(3)-34 ! load into screen, minus pallette bias 

495 ' 

496 * now update pallette 

497 ' 

498 po i nter%=XB I OS (3 ) -32 

499 IF pal! 

500 FOR i&=0 TO 15 

501 zX=0PEEIC<pointerX+<i&*2)) ! save for low rez 

502 SETCOLOR i&,z% 

503 NEXT i& 

504 »sa ve _pa I et te ( 2 ) 

505 END IF 

506 never_mind: 

507 RETURN 

508 ' 

509 PROCEDURE polarCpolario! ) I compute polar coordinates and display 

510 yr=HAXCSUB(ygreph_offset&,y&)*scale,0) ! set negative limit 

511 xr=SUB(x&,xgreph_offset&) ! convert to floating point 

512 IF <M0U$EK=3 AMD NOT magi) ! for constant angle 

513 xr=MAX(MIN<yr*TAN<last_a&*ator),150),-150) ! re-compute <x,y) given angle 

514 x&=ADD<xr,xgraph_offset&) I set a limit 

515 SETHOUSE x&,y& 

516 ELSE 

517 last_a&=a& 

518 END IF 

519 IF (M0USEK=3 AND mag!) ! re-compute for constant magnitude 

520 i=HUL< le$t_r&, last_r&)-xr*xr 

521 IF i<0 ! check for lower limit 

522 yr=0 ! use floating point 

523 xr=last_xr 

524 x&=ADD(xr,xgraph_offset&> 

525 ELSE 

526 last_xr=xr 

527 yr=SGR(i)/scale ! floating point </ by scale old version) 

528 END IF 

529 y&=ygraph_of fset&-yr ! floating 

530 SETHOUSE x&,y& 

531 ELSE 

532 last_r&=r& 

533 END IF 

534 rfrsSQR<xr*xr+yr*yr) ! compute magnitude 

535 IF yr==0 ! compute anglecolor 1,7,7,7 

536 a&=90*SGNCxr) 

537 ELSE 



cnnoTlTHTC QUFFT 



r- 1 / l/Ul ^03 



- 34 - 

538 a&=ATN(xr/yr>*rtoa 

539 END IF 

540 IF polariol ! are we in inner loop ? 

541 bels*-R0UND(r&*d_scale,2) I compute db for display 

542 non_Uneer(a&,bels) ! re-scale db 

543 bels=bels+C3*Cbels<=90) > 

544 ATEXT 0,1,0 "db="+STR$<bels,5 # 1 )+' 9=+$TRS(a&,3) ! output db and angle 

545 polarswl !=TRUE I onetime output of blanking sting 

546 ENDIF 

547 IF (NOT polario!) AND polarsul! 

548 ATEXT 0, 1,0,SPACE$C20) 

. 549 polarswl!=FALSE ! one time blank, toggle the switch 

550 END IF 

551 IF debug! 

552 PRINT tex_color2$; ! set output color 

553 PRINT AT<13,2);USING V=### e=###)",r& # a&; 

554 PRINT AT(13,1>;USING "<x=### y=###)" r x&,y&; 

555 END IF 

556 RETURN 

557 ' - 

558 PROCEDURE update ! graphically update the entire mix screen 

559 ~XBIOSC5,L:s_buffer_a%,L:-1,W:-1) ! use temporary buffer 

560 SPUT mix_screen$ 

561 ox&=xc& ( ac t i ve_ i con& ) 

562 oy&=yc&(active_icon&) 

563 x&=ox& 

564 y&=oy& 

565 ' update last R & A value for constant r & theta in polar 

566 I ast_r&=mag&( act i ve_i con&) 

567 l8st_a&=ang&(active_icon&) 

568 r&=last_r& 

569 a&=lest_a& 

570 apolar(TRUE) 

571 GRAPHHOOE 1 

572 DEFTEXT txt_color&,0,0,4 

573 IF magi I output status of constant R or A flag 

574 TEXT 80,50, -107 /"CONSTANT MAGNITUDE:* 

575 ELSE 

576 TEXT 80,50, -107/bONSTANT ANGLE:' 

577 END IF 

578 IF »ouse_cursor_toggle! 

579 TEXT 80 # 50,-107/k)USE - GAIN & PA»/' 

580 END IF 

581 IF solo_logic! 

582 ATEXT 27,60,0/sOLO ENGAGED*' 
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583 END IF 

584 ATEXT 192,49,0, STRS<ramp_out,5,1) 

585 ATEXT event_x&,event_y&,0, STRS(event_show&,3> 

586 ATEXT event_x&,event_y&^8 # 0,STRS<event_nuraber&,3> 

587 8dis_aetive_icon I output active icon 

588 ddecfbels 

589 BMOVE sjxif fer_aX,sereenJ>aseX, redraw* I move part of the pre-built screen 

590 FOR i&=1 TO icon_count& 

591 IF active!(i&> 

592 PUT xc&Ci&>-x_bies&Ci&),yc&(i&)-y„bias&(i&>,iconsS(i&> # 6 

593 END IF 

594 IF solo_logic! 

595 IF active! <i&) 

596 PUT xc&(i&)-x - bias&(i&),yc&(i&)-y_bias&(i&>,icons$(i&),8 

597 ELSE 

598 PUT xc&Ci&)-x - bias&(i&),yc&(i&>-y - bias&<i&),icons$(i&>,6 

599 END IF 

600 END IF 

601 NEXT i& 

602 BMOVE reJxjfferX,re_screenX,reJ>ytesX ! copy off rest of buffer to main screen 

603 ~XBIO$(5,L:screen_baseX,L:-1,U:-1> ! back to main screen 

604 DEFHOUSE mouseS(1) 

605 ' 

606 FOR i&=1 TO icon_count& ! reset all the DACS 

607 acharme l_out ( i & ) 
606 NEXT i& 

609 RETURN 

610 1 

611 PROCEDURE initialize I main initialization of system 

612 m__colors(1) 

613 PRINT "initializing, please wait ..." 

614 iconSsV 1 ! initialize for tighter interpreter loops 

615 x&=0 

616 y&=0 ! primary mouse 1/0 variables 

617 x_o&=0 

618 y_o&=0 ! old bias 

619 x_x&«=0 

620 yjy&=0 ! new bias 

621 ox&=0 

622 oy&=0 1 old icon / mouse coordinates 

623 x_b&=0 

624 y_b&=0 ! active icon screen bias 

625 xc_err&=4 

626 yc_err&=4 ! mouse / icon target error in pixels for capture 

627 xr=0 
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628 yr=0 ! active icon relative coordinates 

629 r&=0 ! magnitude of active icon 

630 a&=0 ! angle of active icon 

631 i&*0 

632 magl=FALSE 

633 scale=1 .15 I scaling factor for y versus x / used for graphics 

634 x_limit&=319 

635 y_limit&=57 ! limits for mouse in direct node 

636 mag_limit&=160 ! limit for graphic magnitude 

637 max_main_bar&=110 I size of main menu string array 

638 d_scale=0.1875 I scaling for decibels on graph 

639 non_linear*0.018 ! value for non-linear scaling of fade 

640 non_lirait=-29+3 ! limit for non_linear fade 

641 mono&=5 1 mono radius 

642 mono_angle&=7 1 angle for mono lock on 
643 

644 OPTION BASE 0 
645 

646 icon_max&=4 ! maximum number of icons / mix, low for now 

647 

648 DIH 

xc&( i con_max& >,yc&(i con_max& > , i eons$< i con_max&) , x_bi as& ( i con_max&) , y_bi as&( i con_raax& ) 

649 DIH mag&C i con_max& ) , eng&( i con_max&) , act i ve ! < i con_max&) 

650 1 

651 DIM Q^cibels(icon_nwx&) # db_left(icon_max&) r db_right(icon_max&) 

652 DIM gain_left&(icon_max&),gain_right&<icon_max&) ! dac settings for channels 

653 DIM solo! (icon_tnax&) ! solo storage 
654 

655 DIM inactive$(40> ! main menu inactive list 

656 DIM iaainj>ar$<mex_main_bar&) ! the main menu 

657 DIM paletteX(16,4) 1 to hold system palette, + all others 

658 DIM iconj5creenS(2) I number of icon screens in memory 

659 DIM mouseS(7) I space for alternate mouse forms 

660 DIM check_main! <max_mainjjar&) i is the indexed item checked ? 

661 DIM inactive_main!(max main_bar&) ! is the indexed item inactive ? 
662 

663 event_max&=50 I total number of events to store 

664 DIM raix_data - _xc&(event_max&,icon__max&) ! setup preset storage 

665 DIM m i x_da t a_yc& ( even t_max& , i con_max& ) 

666 DIM mi x_de ta_act i ve ! ( event_max& , i conjnax* ) ! active storage 

667 DIM mix - data_icon&(event_max&) ! active icon for event 

668 DIM raix_data_dac<event_max&,icon_max& # 1) I for DAC update *floating* 

669 event_numbert=0 ! preset event number 

670 event_show&sevent_number& 

671 event x&=285 
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672 event_y&=19 ! where to write event numbers 

673 1 

674 ' 

675 DIM i con_name$( i con_max& ) I setup icon_naraing storege 

676 RESTORE i con_name_00x 

677 FOR i&=1 TO icon_max& 

678 READ icon_nameS(i&) 

679 NEXT i& 

680 icon_name_00x: 

681 DATA Icon number 1,This is icon 2, icon 3,(4) icon (4) 

682 * 

683 ' Screen Buffer Stuff 

684 sc reen_base%=XB I OS ( 2 ) ! save startup screen address 

685 DTK s buffer} (32000+600) ! set asside screen worth 'bYTEs" - room to breathe 

686 sJxiffer_a%=(VARPTR(sJxifferj(0))+&H200) AND &HFFFF0O ! corrected pointer to array 

687 redrawX=160*57 ! number of bytes not redrawn in direct mode 

688 re buf fer%=s_buf fer_a%+redraw% ! compute buffer send address 

689 re_screen%=screen_base%+redraw% I compute screen receive address 

690 re_bytes%=32000- redrew* ! compute # of bytes to xfer 
691 

692 output_chamels&=2 ! # of output channels in system 

693 DIH dac_offset&(icon_max&*output - channels&+1) ! offset needed to set DAC to unity 

694 RESTORE dac_of f set s_ label 

695 FOR i&=0 TO icon_max&*2+1 ! read them in to offset array 

696 READ bufferlS 

697 dac_offset&(i&)=VAL( , ih t +buffer1S) 

698 NEXT i& 

699 dac_offsets_label: 

700 DATA 7f9,7fa,7ff,7fd,7fe,7fe,7fd,7fc,7ff,7fc 

701 1 the above values obtain from calibration of matrix 

702 dacjnute&=&HFFF ! absolute to DAC for mute 

703 1 

704 1 Assembly routine to calculate weighted mouse 

705 DIM mosxX(16) # mosy%(16) 
706 

707 INLINE weighted%,46 

708 1 

709 INLINE dolby_icori%,400 

710 ' 

711 i con_count&=0 ! number of icons actually in mix 

712 active_icon&=1 ! first active icon = 1 

713 rtoa=180/PI I radian to angle conversion, floating point 

714 ator*PI/1B0 ! angle to radian conversion, floating point 

715 delay&*200*(0.4) I set time delay in seconds, with 200hz clock 

716 icon scr&=1 1 icon screen index 
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717 num_color&=3 ! color for nuneric insert into icon 

718 txt_color&=3 ! color for text on mix screen 

719 grez&=XBIOS<4) ! get current resolution 

720 midi_timeout&=200*(1) ! time out in seconds for no midi communication 

721 midi&=3 f the atari midi port # 

722 «ainmatrix!*FALSE I I/O enable within direct loop, port_write! is final say 

723 mouse_toggle1 1 =TRUE 

724 mouse_toggle2!*=FALSE ! preset the mouse flip/flop status 

725 increment _pen&= 10 ! pan increment 

726 incr«nent_gain&=3 I gain increment 

727 xgraph_offset&=161 I x graphic offset for stereo mix 

728 ygraph_offset&=190 ! y graphic offset for stereo mix 
729 

730 1 ALL VALUES IN DB 

731 r«np_adjust=0.5 ! value for ramping output DACS 

732 ramp_out=0 I value in DB for output ramp function 

733 ramp_high=0 ! high limit for ramp *FLOATING* 

734 ramp_Low=-90 ! low limit for output channel ramp 

735 ramp_delay&=0 1 delay introduced in ramp function 
736 

737 db_high=12 ! high gain for VCA,s in decibels * FLOATING* 

738 db_low=-102 ! low gain for VGA used by VCA_GAIN_SET 
739 

740 ' 

741 LET write_address%=&HFBOOO0 ! address for write 

742 LET read_address%=&HFB0100 | address for read 

743 board&=0 i board # 0 for now 

744 ' 

745 DIM dbcoef<180,1> t coefficients for DB vs. angle 

746 FOR i&=-90 TO 90 

747 cto_cc«fO'&*90 # 0)=20*LOG10(MAXCSINQCC90-i& | left db coefficient 

748 db_coef(i^90,1)=20*LOG10(HAX(C0SQ((90M&>/2 I right coefficient 

749 NEXT i& 

750 db_coefC0,1>=-60 ! right -90 deg. 

751 db_coefC1,1>=-56 

752 db_coef(2,1>=-50 

753 db_coef(3,1>=-40 

754 dbcoefC177,0)=-40 ! left at +90 deg. 

755 dbcoefC178,0)=-50 

756 db_coef<179,0)=-56 

757 db_coef<180,0)«-60 
758 

759 ' *- H 9 ht < activ OcocA)=bels+20*L^ 

760 1 ofc_left(ectiveJcor*)=lDels^^ , compute 
based on table lookup 
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761 * 

762 LET date_acWressjnask%==&X111111 ! PO COO-D5) 6 bits of address for VCA # 

763 LET data_clk_maskX=&X1000000 ! PO CD6) data clock 

764 LET data mc I kjnaskX=&X1 0000000 ! P0 <D7) master clock 
765 

766 LET data_low_mask%=&X11111111 I P1 (D0-D7) lower 8 bits 

767 LET cfctaJnghjnask%=&Xl111 I P2 (D0-D3) upper 4 bits 

768 LET data_latch2jnask%=&X1 0000000 I P2 (07) enable to latch #2 
769 

770 delta&=15 ! amount cursor can wander before display update 

771 ' 

772 tex_color1$=CHRS(27>+b , +CHRS(1 ) 

773 tex_color2$=CHR$(27)+y+CHR$(Z> ! color for direct output 

774 tex_color31=CHRS(27)+D t VcHRSC3) 

775 back_eo I or*=CHRS< 27)+ c+CHRSC 0 ) 

776 i nverseon$s:CHR$(27)+p l 

777 inverseoff^CHR*(27)+cr 

778 * 

779 PRINT back_color$;inverseof f$; ! inverse video off 

780 1 * 

781 a reset 

782 Ssave _pa letted) ! save current palette in position 1 # med rez 
783 

784 1 setup physical screen in screen buffer area 
785 

786 ~XBIQS(5,L:s_buffer_a%,L:-1,W:-1) ! setup temporary screen memory 

787 aioad^screenc'voyager-PH^TRUE) ! get background screen 

788 SGET mix_screen$ 

789 ai oad^screen^i cons 1.P 1 l", FALSE) ! get icons 

790 SGET i con_screen$( 1 ) ! save 1st icon screen 

791 8 1 oad_screen^ ! i cons2 -P1 1", FALSE ) I get icons 

792 SGET icon_screen$C2) I save 1st icon screen 

793 ~XBIQS(5,L:screenj3aseX,L:-1,U:-1) I main screen as physical 
794 

795 9med_rez(0) ! back to medium 

796 autoload! =FALSE 

797 8custom1(1) 1 define custom icon 

798 key_click<1) 

799 STICK 0 

800 DEFHOUSE 0 ! arrow 

801 CLOSEU 0 
802 

803 1 This code initialzes the I/O and presets the 0ACS to MUTE 

804 aports_setup ! setup 3 8-bit ports for write, port_write! roust be set 

805 FOR i&=0 TO 9 1 all 10 OACS to OFF 
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806 adac_out(i&,&HFFF> 

807 NEXT i& 

808 vca_ga i n_set ( 8 , rarap_out > 

809 vca_gain_set(9,ramp_out) ! preset dacs to ram_out db. 

810 ' 

81 1 draw_voyager 

812 memory%=FRE(0) 

813 PRINT AT(53,23); , Vree Bytes = ";memory%; 

814 PRINT AT(1,1>;tex_color1S;Vess moose to engage.. "; 

815 REPEAT 

816 UNTIL MOUSE* 

817 RETURN 

818 ' 

819 PROCEDURE get_icon I get graphical icon, user select 

820 LOCAL msgx&,msgy& 

821 msgx&=0 

822 msgy£=194 

823 try_again: 

824 1 

825 SPUT icon_screenS(icon_scr&) 

826 ' 

827 SHOWM 

828 DEFHOUSE 5 

829 IF i con_count&= i con_max& ! you tried to exceed memory ? 

830 CLS 

831 draed_rezC0) 

832 QsoundJ 

833 ALERT l/kaximum of "+STR$(iconjnax&,2)+" icons, |that is the current {hardware 
I irai tat ion. Sorry." 1 /feETUR^xU 

834 aiow_rez(2> 

835 SETMOUSE xc&<active_icon&>,yc&<active_icon&) 

836 GOTO ret_icon 

837 END IF 

838 IF icon_count&>iconjnax& ! system error ? 

839 CLS 

840 amed.rezCO) 

841 CLS 

842 asoundj 

843 ALERT 1, "system error, ICON KAX",1 /'Abort", x1& 

844 END 

845 END IF 

846 ATEXT »sgx&,msgy&, 0,"set upper left icon coordinates" 

847 REPEAT ! wait for left mouse button and toggle icon screens 

848 IN KEYS 

849 IF M0USEK AND 2 
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850 icon_scr&«<icon_scr& MOO 2)+1 

851 SPOT icon_screen$(icon_scr&) 

852 ATEXT msgx&,msgy&,0,"set upper left icon coordinates" 

853 PAUSE 10 

854 END IF 
855 

856 IF ASC(RIGHTS(e$>>=60 I f2 function key to toggle boxes 

857 i_box!=NOT i_box! 

858 checkjna i n I < out I i ne& ) = i _box ! ! set checkmark flag 

859 IF i_box! 

860 statusl=W 

861 ELSE 

862 stetus^'uFf^ 

863 END IF 

864 PRINT AT(1,1);USING "outline status* 

865 PAUSE 20 

866 END IF 
867 

868 IF ASC(RIGHT*Ca*)>=61 ! f3 funtion key to toggle number graphic 

869 i_num»=N0T i_num! 

870 checkjnain! ( sequences )=i_num! i set checkmark flag 

871 IF i_num! 

872 status$=W 

873 ELSE 

874 statusS^bFf^ 1 

875 END IF 

876 PRINT AT<14,1>;USING "sequence \.\' f status* 

877 PAUSE 20 

878 END IF 
879 

880 IF ASC(RIGHT*(a*))=62 ! f4 funtion key to toggle nunfeer graphic 

881 i_dot!=N0T i_dot! 

882 checkjnain! (centroid&)=i_num! ! set checkmark flag 

883 IF i_dot! 

884 status*^' 

885 ELSE 

886 statusSs'bF^ 

887 END IF 

888 PRINT AT<27,1);USING "centroid \.\',status$ 

889 PAUSE 20 

890 EN0IF 

891 ' 

892 UNTIL M0USEK AND 1 ! get upper left coordinate 

893 ATEXT msgx&,msgy&, 0 # "set lower right icon coordinates" 

894 x1&=M0USEX 
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895 y1&=H0USEY 

896 PAUSE 10 

897 GRAPHMOOE 3 ! xor 

898 DEFLIKE 1,2,2,2 

899 DO 

900 HOUSE x_t«np&,y_tefflp&,k& 

901 IF x_te«p&<x1& Oft y_temp&<y1& 

902 x_t«np&=x1& 

903 y_temp&=y1& 

904 SsoundJ 

905 SETHOUSE xU,yU 

906 ELSE 

907 VSYNC 

908 BOX x1&,y1&,x_tenp&,y_tefnp& 

909 VSYNC 

910 BOX x1&,y1&,x_teflp&,y_tenp& 

911 END IF 

912 EXIT IF k& ! set lower right coordinate 

913 LOOP 

914 IF k&=2 

915 PAUSE 10 

916 GOTO try_again 

917 END IF 

918 x2&=x_tenp& 

919 y2&=y_temp& 

920 INC icoo_count& 

921 GET Xl&,y1&,x2&,y2&, icons ! temporary save of icon field 

922 CLS 

923 PUT x1&,yU,iconS,3 ! laydown icon 

924 IF i_num! 

925 GRAPHMOOE 1 

926 DEFTEXT numcolorfc, 0,0,4 

927 IF iconcount&>9 i wow, a 2 digit number 

928 TEXT x2&-6,y2&-1,RIGHT$(STRS<icon_count&),2) 

929 ELSE 

930 TEXT x2&,y2&-1,RIGHTS(STR$(icon_count&)> 

931 END IF 

932 END IF 

933 IF i_box! ! if flagged outline icon in box 

934 GRAPHMOOE 1 

935 DEFLINE 1,1,0,0 

936 COLOR 15 

937 BOX Xl&,y1&,x2&+6,y2& 

938 END IF 
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940 act i ve_ i con&= i con_count& ! update active icon from icon count 

941 ' 

942 1 compute cent ro id dot 

943 x_b&=(x2&-x1&)/2 

944 y b&=(y2&-y1&)/2 I into temp variables 

945 x_bi as&( ac t i ve_i con& >=x_b& 

946 y - _bias&(active_icon&)=y_b& ! compute screen write bias 
947 

948 IF ijdot! 1 laydown cent ro id dot 

949 GRAPHHOOE 1 

950 DEFLINE 1,1,0,0 

951 IF P0INT<x1&+x_b&,y1&+y_b&> 

952 COLOR 1 

953 ELSE 

954 COLOR 1 I color for dot plot 

955 END IF 

956 xp&=x1&+x_b& I temp 

957 yp&=y1&+y_b& 

958 PLOT xp&-1,yp&-1 

959 PLOT xp&,yp& 

960 PLOT xp&,yp&-1 ! four dots 

961 PLOT xp&-1,yp& 

962 END IF 

963 ' 

964 GET x1&,y1&,x2&+6,y2&+6, icon$ 

965 1 

966 i consS ( i con_count& >= i con$ 

967 active! (act ive_icon&>=TRUE ! set icon as active 

968 xc&< act i ve_i con& )=1 59 ! preset icon coordinates 

969 yc&(act i ve_i con&)=58+y_b& 

970 SETMOUSE xc&(acti ve_icon&) ,yc&(aetive_icon&) ! preset mouse 

971 PAUSE 10 

972 ret_icon: 

973 SPUT mix_screen$ 

974 RETURN 

975 ' 

976 PROCEDURE active I select currently existing icon from keyboard 

977 num&=VAL(key$) 

978 9get_num(num&) 

979 num&*n& 

980 IF num&<1 OR num&> i con_count& 

981 ATEXT 0,1,0,'feRROR - No icon with number "+STRS(num& # 2) 

982 fisound_2 

983 asound_2 

984 sound_2 
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985 ATEXT O f 1 ,0, SPACESC30) 

986 ELSE 

987 active! (num&)=TRUE I set active logic 

988 aact_upd<num&) 

989 DEFHOUSE 0 

990 asound_3 

991 DEFHOUSE mouse$(1) 

992 END IF 

993 RETURN 

994 ' 

995 PROCEDURE act_upd(nun&) ! update active icon temporary status 

996 act i ve_i confr==num& 

997 icon£=icons$<active_icon&) ! transfer to active icon temporary 

998 ox&=xc&(active_icon&) 

999 oy&=yc& ( ac t i ve_i con& ) 

1000 x_b&=x_bias&(active_icon&) I xfer to terap variabLe 

1001 y_b&=y_bias&(active_icon&) 

1002 ' 

1 003 Sdi s_act i ve_i con 

1004 adecibels 

1005 1 

1006 IF alt_scr! ! if MIDI xfer on 

1007 ap*cket_out(1,r»um&,n»g&Cixii£),an^ ! output to display #2 

1008 EKDIF 

1009 ' 

1010 SETHOUSE ox&,oy& 

1011 same_icon!=FALSE 

1012 RETURN 

1013 ' - 

1014 > PROCEDURE soundj I a sound blip for errors 

1020 1 

1021 > PROCEDURE sound_2 

1025 ' 

1026 > PROCEDURE sound_3 

1030 ' - : 

1031 > PROCEDURE sound_4 

1036 ' --- 

1037 PROCEDURE roain__menu(menu_ini t! ) 

1038 IF menujnft! 

1039 1 

1040 ARRAY FILL checkjnain! O, FALSE 

1041 ARRAY FILL inaeti ve_main! O, FALSE ! preset the logical arrays 

1042 ' 

1043 RESTORE thejwr 

1044 FOR i&=0 TO max main bar& 
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1045 READ main_bar$(i&) 

1046 EXIT IF main_berS< i&)= W *^ 

1047 NEXT i& 

1048 main_barS(i&>=" 

1049 main_bar$(i&*1>=* 

1050 ' 

1051 the_bar: 

1052 DATA " DESK n Voyager Sound' 

»i it 

1053 DATA 

1054 DATA 1,2,3,4,5,6," 

1055 DATA " FILE toad save default drive merge V disk space 7' 

tin .fin "« . «« 

directory , reset , , quit , 

DATA " FIELD "," stereo i Dolby quad mix-minus script "," tables 

ft JMI .. II 11 . «ll . MM , - *' * 

DATA MIX MODE, direct , learn , play , edit , 
DATA " REFERENCE smpte DF smpte NDF midi internal step 
DATA " OPTIONS cursor outline sequence centroid gain matrix 
alt_screen , 



1060 DATA " HELP general f i le "," set 'V mix 7 time 7" 

1061 DATA 

1062 ' 

1063 ' 

1064 RESTORE inactive_l ist 

1065 FOR j&=0 TO 30 

1066 READ inactiveS(j&) 

1067 EXIT IF inactiveSC]*)*^" 

1068 NEXT j& 

1069 ' 

1070 inactive_list: 

1071 DATA " merge 7' quad "," script learn"," play 7* edit n 

1072 DATA " snpte DF V* smpte NDF "," midi 7' drop mix-minus " 

1073 DATA tWW ' 

1074 bar_count&=i&-1 

1075 inactive_count&=j&-1 ! hold for later 

1076 ' 

1077 1 

1078 FOR mft=0 TO bar_count& ! set flags for inactive entries 

1079 FOR k&=0 TO inactive_count& 

1080 IF inactive*(k&>=main_bar$(m&> ! note string compare 

1081 inactive_main!<m&>=TRUE I set inactive flag 

1082 END IF 

1083 NEXT k& 

1084 NEXT m& 

1085 1 

1086 * 



1056 
icons , 
1057 
1058 
1059 
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1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 



1 check for specific menu items and load flag arrays 



FOR m&=0 TO bar_count& 

IF " outline , «=main_bar$(m&) 

LET outlinefe=m& 
END IF 



IF n sequence t1 «main_ber$(in&) 

LET sequence&=m& 
END IF 



! set outline index 



I set sequence index 



set cent ro id index 



! set alt screen index 



IF cent ro id =ma i n_ba rS( m& ) 

LET centroid&=m& 
END IF 

i 

IF " alt_screen 1 =ma i n_ba rS ( m& ) 

LET elt_screen&=m& 

END IF 
i 

IF " gain matrix M =main_barS(m&) 

LET gain_matrix&=m& 

END IF 
i 

IF " cursor , =main_bar$(m&) 

LET cursor&=m& 
END IF 
NEXT tn& 

i_cur! = FALSE 

checkjnain! <cursor&)=i_curl 
i_num!=TRUE 

checkjnain! ( sequenced )=i_num! 
i_dot!=TRUE 

check_mainl (centroid&>=i_dot! 
i_box!*FALSE 

checkjnain! (out I i ne&)=i_box! 

i 

END IF 



the below code only during re- instate main menu 

i 

CLS 

MENU main_bar$() 
i 

FOR k&=0 TO bar_count& ! test flags for inactive entry and set 
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1132 


IF inactivejnain! (k&) 


1133 


MENU k&,2 1 set to inactive 


1134 


END IF 


1135 


t 


1136 


IF checkjnain!(k&> 


1137 


MENU k& f 1 f set checkmark 


1138 


END IF 


1139 


NEXT k& 


1140 


i 


1141 


ON MENU GOSUB main_select 


1142 


COLOR 3 


1143 


vgr_logo(639/2, 199-60,1 ,5,0.75) ! output Uoyds VGR logo 


1144 


RETURN 


1145 




1146 


PROCE0URE abort ! handle user aborts 


1147 


Ssound 1 


1148 


anted rez(0) ! back to medium, preset palette 


1149 


CLOSE #1 


1150 


CLOSE #0 


1151 


CLOSEU 0 


1152 


MENU KILL 


1153 


SHOUM 


1154 


key_click(1) 


1155 


~XBIOS<35,20,2) I restore keyboard repeat 


1156 


STICK 0 


1157 


EDIT 


1158 


RETURN 


1159 




1160 


PROCEDURE whoops ! handle system errors, fatal & non 


1161 


SHOUM 


1162 


i 


1163 


Skned_rez(0) 1 set to medium rez 


1164 


—XBIOS(5,L:screen_baseX,L:screen_base%,W:-1> 1 get back to reference screen 


1165 


CLOSE #1 


1166 


CLOSE #2 


1167 


CLOSEW 0 ! reset system normal screen display 


1168 


CLS 


1169 


PRINT 'terror # "; ERR 


1170 


GRAPHMOOE 4 


1171 


DEFTEXT 2,1,0,32 


1172 


TEXT 40,50,300,'kon-Fatal Error " 


1173 


GRAPHMOOE 1 


1174 


PRINT AT<1,23);tex_color1$;'Uill ask for abort after alert "; 


1175 


SsouncM 


1176 


*"~FORM_ALERT( 1 , ERRS (ERR ) ) ! let the user know, and wait 



oiinrTlTUTC QUFFT 



- 48 - 

1177 ALERT 2,'bo you want to abort", 1 YES j NO",i& 

1178 IF i&=1 OR FATAL 

1179 abort 

1180 END IF 

1181 ON ERROR GOSUB whoops ! reset for error processing 

1182 DELAY 1 

1183 amainjnenuCTRUE) 

1184 DEFHOUSE 0 

1185 key_click(1) ! click on 

1186 STICK 0 ! reset to mouse ON 

1187 RESUME main_loop ! go back to main wait loop 

1188 RETURN 

1189 * - 

1190 PROCEDURE icon_se I ect(VAR hit!) ! routine to select active icon from mouse I/O 

1191 i&=1 

1192 Mtl=FALSE 

1193 REPEAT 

1194 IF ABS(x&-xc&Ci&))<xc.err& AND ABS<y&-yc&Ci&))<yc_err& AND active! <i&) 
11°5 3act_upd(i&) ! call routine to update temp status 

1 1 96 i&=i con _max& 

1197 DEFHOUSE 0 

1198 a$oundJ3 

1199 hiti=TRUE 

1200 END IF 

1201 INC i& 

1202 UNTIL i&>iconmax& 

1203 DEFHOUSE mouseS(l) 



1204 RETURN 

1205 ' 

PROCEDURE draw_voyager 

x_greph&=180 
v_graph&=70 
SETCOLOR 0,0,0,0 
CLS 

GRAPHHODE 1 
DEFT EXT 1,9,0,32 

TEXT x_graph&,y_graph&,350 /Voyager Sound Inc." 
DEFTEXT 3,9,0,13 

TEXT x - graph&+4,y_graph&+30,250,"lcon Mix System 
DEFTEXT 2,0,0,13 
TEXT 10,y_graph&+100,0,verS 
DEFTEXT 2,0,0,13 

TEXT 10,y_graph£+120,0,^ Voyager Sound 1986, 1987, 198S M 
RETURN 



1206 
1207 
1208 
1209 
1210 
1211 
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
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1222 PROCEDURE save_pelette<2&) I routine to save current palette 

1223 FOR i&=0 TO 15 

1224 palette%(i&,z&)=XBI0S<7,i&,-1) 

1225 NEXT i& 

1226 RETURN 

1227 ' 

1228 PROCEDURE restore_palette(z&> ! routine to restore palette 

1229 FOR i&=0 TO 15 

1230 VOID XBI0SC7, i&,palette%( i&,z&)> 

1231 NEXT i& 

1232 RETURN 



1234 > PROCEDURE micro_draw 

1320 1 

1321 PROCEDURE getnum 

1322 x&=0 

1323 REPEAT 

1324 REPEAT 

1325 aS=INKEY$ 

1326 UNTIL LEN(aS) OR MOUSEK 

1327 x&=10*x&+VAL(aS) 

1328 UNTIL a$<fU ! OR eS>^ OR MOUSE* 

1329 x&=TRUNC(x/10) 

1330 8*=" 

1331 RETURN 



1333 > PROCEDURE help_draw 



1362 PROCEDURE ma in_s elect 

1363 p&=MENU<0) 

1364 MENU KILL ! turn off the menu system for now 

1365 ' 

1366 IF main_bar$(p&>-" stereo " 

1367 ©direct 

1368 DEFMOUSE 0 

1369 END IF 

1370 1 

1371 IF main_barS(p&)=" -j Dolby" i Dolby surround sound 

1372 do I by 

1373 DEFMOUSE 0 

1374 END IF 

1375 ' 

1376 IF main_barS(p&>=' quit w 

1377 aroed_rez(0) 

1378 CLS 
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1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1393 
1394 
1395 
1396 
1397 
1398 
1399 

1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1408 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
1417 
1418 
1419 
1420 
1421 
1422 



! release memory 

! click ON 

! restore keyboard repeat 
! mouse ON 



asoundj 

ALERT 2,'bo you really want to quit ?", 1," No J Yes " i& 
IF i&=2 

asoundj 

CLOSE #1 

CLOSE #0 

CLOSEU 0 

MENU KILL 

SHOUM 

IF NOT develop! 

RESERVE 
END IF 

key_click(1> 
— XBIOS(35 f 20,2> 
STICK 0 
EDIT 
END IF 
END IF 

i 

IF main_bar$(p&)=" Voyager Sound' 

ALERT 1," J Voyager Sound 1987 j Douglas DeVitt President J Kris Krug 

. V.P. J Lloyd Schoenbach Treasurer ,l ,1, , feETUR*T,i& 

END IF 
t 

IF main_bar$(p&)=" icons " 

Sdi splay_pa I ette 

END IF 
i 

IF main_bar$Cp&)=" outline " 
IF i_box! 

i_box!=FALSE 

check_main!(outline&)=FALSE ! set checkmark flag for main menu 
ELSE 

i_box!*TRUE 

check_main! (outlines )=TRUE ! ditto 
END IF 

END IF 
i 

IF main_barSCp&)=' sequence " 
IF i_num! 

i_num!=FALSE 

checkjnain! (sequence&)=FALSE ! same here 
ELSE 

i_num!=TRUE 

check jnain!<sequence&)=TRUE ! ditto 
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1423 END IF 

1424 END IF 

1425 1 

1426 1 

1427 IF main_bar$(p&)= f cursor " 

1428 IF i_curl 

1429 f_cur!=:FALSE 

1430 check_main!<cursor&)=FALSE 1 same here 

1431 ELSE 

1432 i_cur!=TRUE 

1433 checkjnain! (cursor&)=TRUE ! ditto 

1434 END IF 

1435 END IF 

1436 1 

1437 IF main_bar$(p&)=' cent ro id " 

1438 IF i_dot! 

1439 i_dot != FALSE 

1440 checkjnain! < cent roid&)= FALSE 

1441 ELSE 

1442 i_dot!=TRUE 

1443 checkjnain! <centroid&)=TRUE 

1444 END IF 

1445 END IF 

1446 ' 

1447 IF main_bar$(p&)=" alt_screen " 

1448 IF elt_scr! 

1449 alt_scr!=FALSE 

1450 checkjnain! <att_screen&>=FALSE 

1451 ELSE 

1452 alt_scr!=TRUE 

1453 checkjnain! (att_screen&)=TRUE 

1454 END IF 

1455 END IF 
1456 

1457 IF ma in_ba r£(p&)=" gain matrix " 

1458 IF gainjnatrix! 

1459 gainjnatrix!=FALSE 

1460 checkjnain! (gainjnatrix&)=FALSE 

1461 ELSE 

1 462 ga i n jnat r i x ! =TRUE 

1463 check_mainl <gain_matrix&)=TRUE 

1464 END IF 

1465 END IF 

1466 ' 

1467 IF ma in_bar$(p& >=" directory " 
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1468 CLS 

1469 ALERT 2/feelect Drive", 1 /' A J B J D ",i& 

1470 IF i&=1 

1471 LET direct**'!*:*.^ 

1472 EHOIF 

1473 IF i&=2 

1474 LET directisfe:*.^ 

1475 END IF 

1476 IF i&=3 

1477 LET direct*- f b:*y 

1478 ENDIF 

1479 PRIKT AT C 1 , 1 ) ;'b i rectory "; di rect$ 

1480 PRIKT 

1481 FILES direct! 

1482 * 1 wait for mouse 

1483 . > REPEAT 

1484 UNTIL HOUSEK 

1485 END IF 

1486 ' 

1487 IF mQ^n_ba^$(p&>= , disk space " 

1488 CLS 

1489 ALERT 2,'bytes Remaining | {select Drive 1 ," A j B ",i& 

1490 PRINT ATC20,10);CHRSC64+i&>;": Bytes remaining = '^DFREECiA); 

1491 REPEAT 

1492 UNTIL MOUSEK 

1493 END IF 

1494 ' 

1495 IF main_bar$(p&)=" load" 

1496 CLS 

1497 FILESELECT V- vgrI in - f * le$ 

1498 IF in_f UeS<>" 

1499 DEFTEXT 3,1,0,32 

1500 TEXT 1,100 /Loading the database." 

1501 soundjl 

1502 ainput_all 

1503 END IF 

1504 END IF 

1505 * 

1506 IF main_bar$(p&)=" save " 

1507 CLS 

1508 FILESELECT *\+ .VGll'^lXQI -VGR ,! ,out_f UeS 

1509 IF out_file$<>" 

1510 asave_all 

1511 END IF 

1512 ENDIF 
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1513 

1514 IF roain_barS(p&>=" default drive" 

1515 ALERT 2/feelect Default Drive J for load & save operat i ons 1 A | B { 
D M ,default_drive& 

1516 IF defeult_drivefc=3 

1517 default_drive&=4 I for drive D: 

1518 END IF 

1519 CHDRIVE defaulter ive& 

1520 END IF 

1521 ' 

1522 IF mein_bar$<p&>= M reset " 

1523 messagec'kemory Clear Function") 

1524 asound_4 

1525 CLS 

1526 ALERT 3," This function will j clear memory! j j Do you want to 
rethink this? | ",2," PROCEED \ CANCEL ",button& 

1527 IF buttor£=1 

1528 ©reset 

1529 END IF 

1530 END IF 

1531 ' 

1532 IF main_bar$(p&)= , general " 

1533 ahelp_window 

1534 END IF 

1535 1 

1536 Sma i n_menu( FALSE ) ! reset main menu, partial reset 
1537 

1538 RETURN 

1539 1 - 

1540 > PROCEDURE display_palette 

1555 ' 

1556 PROCEDURE custofli1(index&) ! Custom mouse for application 

1557 * Mouse- Convert data in string 

1558 LOCAL baekgrndX, f oregrndX 

1559 LET mouseS(index&)=MKI*(7)+MKI$(7> 

1560 LET nx>use$(index&)=mouseS(index&)+NKIS(0) 

1561 LET mousei(index&)^mouse$(index&>^t<l$(0) 

1562 LET RK>useS(ino^x&>^TK>useS(index&HHICI$(1) 

1563 RESTORE custl 

1564 FOR i&«1 TO 16 

1565 READ backgrndX 

1566 LET RxxjseS(inckx&)=mouse$(irxlex&)^KIS(backgrr>d%) 

1567 NEXT i£ 

1568 FOR 1&=1 TO 16 

1569 READ f oregrndX 
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1570 LET mousc$Cirxiex&)=it»usc$(index&)^KI$(foregrndX) 

1571 NEXT i& 

1572 custl: 

1573 DATA 256,256,256,256,4064,3168,2080,63550,2080,3168,4064,256,256,256,256,0 

1574 DATA 32770,16388,8200,4112,4064,2080,2080,2080,2080,2 

1575 RETURN 

1576 ' 

1577 PROCEDURE med_rez(pal&) ! set screen to med rez 

1578 rez&«1 

1579 VOID XBIOSC5,L:-1,L:-1,W:rez&) 

1580 IF pat&OO 

1581 arestore_palette(pal&> 

1582 ELSE 

1583 3m_colors(1) ! use preset colors 

1584 END IF 

1585 ACLIP 1,0,0,639,199 

1586 CLIP 0,0 TO 639,199 1 set clipping for screen 

1587 VSYNC 

1588 RETURN 

1589 ' 

1590 PROCEDURE low_rez(pal&) ! set screen to low_rez 

1591 rez&=0 

1592 VOID XBIOS(5,L:-1,L:-1,U;rez&> 

1593 arestore_pelette(pal&) 

1594 ACLIP 1,0,0,319,199 

1595 CLIP 0,0 TO 319,199 ! set clipping for screen 

1596 VSYNC 

1597 RETURN 

1598 1 

1599 PROCEDURE «_colors(index&) ! color presets for mediun rez 

1600 IF index&=1 

1601 SETCOLOR 0,0,0,0 

1602 SETCOLOR 1,7,0,0 

1603 SETCOLOR 2,0,0,7 

1604 SETCOLOR 3,0,5,0 

1605 ENDIF 
1606 

1607 IF inctex&=2 

1608 SETCOLOR 0,1,1,1 

1609 SETCOLOR 1,7,0,0 

1610 SETCOLOR 2,0,0,7 

1611 SETCOLOR 3,0,5,0 

1612 ENDIF 

1613 ' 

1614 RETURN 
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1615 






1616 


PROCE0URE packet_out(»^e1&,byte2&,byte3&,byte4£) 


1617 


OUT midi&,255 # b)^tc1& # byt€2&,b^e3&,byae4& ! sync byte 


1618 


RETURN 




1619 






1620 






1621 






1622 


PROCEDURE dis_active_icon 


1623 


LOCAL icnS 


1624 


GRAPHHOOE 


1 


1625 


DEFT EXT 3,0,0,4 


1626 


TEXT (62- (4*< act i ve_i con&< 1 0 ) ) ) , 14 , 0 , STRS< act i ve_i con&) 


1627 


TEXT 1,50, 


,-75,SPACES<14> 


1628 


TEXT 1 , 5 0 , -75 , i con_name$( act i ve_ i con& ) 


1629 


i cnS= i consSC act i ve_i con& ) 


1630 


put_elip<31,22,icn$) ! reset X and Y for icon, pre_clip 


1631 


PUT 1,17,icn$,3 ! active icon to screen 


1632 


RETURN 




1633 






1634 


PROCEDURE reset ! reset the mix to no mix at all 


1635 


ARRAY FILL 


xc&C),0 ! actual cursor coordinates 7 used for graphics 


1636 


ARRAY FILL 


yc&O,0 


1637 


ARRAY FILL 


x_bias&C>,0 ! icon graphic bias X_DRAU&=XC&< >-X_BIAS&C) 


1638 


ARRAY FILL 


y_bias&(>,0 


1639 


ARRAY FILL 


mag&(>,0 ! magnitude / radius 


1640 


ARRAY FILL 


ang&(),0 t angle of icon 


1641 


ARRAYFILL 


active! (), FALSE I is channel currently active 


1642 


ARRAY FILL 


gain_left&O r &HFFF 


1643 


ARRAYFILL 


gain_right&<),&HFFF ! preset DACS to OFF 


1644 


ARRAYFILL 


db_left(>,-100 


1645 


ARRAYFILL 


db_right(),-100 


1646 


ARRAYFILL 


decibels(),-100 ! before theta calculation 


1647 


ARRAYFILL 


mi x_data_xc& C ) , 0 


1648 


ARRAYFILL 


mixjdata_yc&O,0 ! event storage 


1649 


ARRAYFILL 


mix_data_dacC ) , -90 


1650 


icon_count&=0 


1651 


active_icon&=1 


1652 


FOR i&=1 TO iconjnax* 


1653 


iconsS(i&)= w 


1654 


channel^ 


_out(i&) 1 reset dacs 


1655 


NEXT i& 




1656 


event_number&=0 


1657 


show_event&=event_number& 


1658 


RETURN 




1659 
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1660 > PROCEDURE help_window 

1708 ' - 

1709 > PROCEDURE screen 

1796 1 

1797 > PROCEDURE show.it 

1872 ' 

1873 PROCEDURE decibels ! compute decibels and other interesting stuff 

1874 LOCAL bels 

1875 LET bels=-R0UND(r**d_scale,2> ! round off decibel gain 

1876 non_linear(a&,bels) ! re- scale for fade out 

1877 LET decibels(active_icon&)=bels I assign to data array 

1878 ATEXT 46,26,0,STRS(a&,3) ! faster text I/O 

1879 1 

1880 1 compute left and right gain components for xfer to DAC 

1881 1 

1882 IF (ABS(a&)>mono_angle&) 

1883 cfo_left(active_icon&)=MAX(bels^b_coef(ADD(a&,90) f 0),-90) ! based on table lookup 

1884 db_right(active_icon&)=MAX(bels+db_coefCADD(a& l 90),1) f -90) 

1885 ELSE 

1886 db_lef t(active_icon&>«=MAX(bels-3, -90) 

1887 db_right(active_icon&)=HAXCbels-3,-90> 

1888 END IF 

1889 ATEXT 34, 18,0,STRS(db_lef t Cacti ve_icon&),5,1) 

1890 ATEXT 34,34,0,STR$(db_right(active_icon&>,5,1 > 

1891 RETURN 

1892 ' - 

1893 PROCEDURE charvK?l_«it(chanoel_number&> 

1894 ' 

1895 1 dac / channel address 6 bits 

1896 ' 

1897 1 4 bits out of 6 are used, remaining for address expansion 

1898 * set this way for simplified hardware addressing 

1899 ' 

1900 ' Channel #1 Channel #2 Channel #3 Channel #4 

1901 ' LR LR L R LR 

1902 1 DACS 0 4 1 5 2 6 3 7 

1903 1 

1904 1 compute actual DAC setting from left and right db gain 

1905 ' and send the data ! 

1906 1 

1907 1 code includes DAC cross-reference for now 

1908 1 going to use 12 bits to set the DAC, for VCA gain 

1909 ' 

1910 LOCAL left - dac fc number& # right_dac - number& 

1911 1 
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IF char**;l_nunfc*r&>icon_max& I test for out of range and trap 
global^error^fchannel number request is greater than hardware conf igurationJ 
ERROR 99 ! ceU slobal error trap 



1912 
1913 
1914 

1915 1 EHDIF 
1916 

1917 lef t - dac_r*iitoer&=SUB(channel_nunnber& # 1 ) 

1918 r i gh t_dac_nurrberfc=ADD ( channe L _numbe r& , 3 ) ! DAC cross reference for now 

1919 ' 

1920 IF active! ( channe l_number&) 

1921 ' 

1922 gainJeft&<charriel_rxjTtx^ 
( channe l_number&>*20 ) 
1923 

gain_right&(charr»el_rHiii>er&^^ 
(channel_nunber&)*20) 

1924 ao^c_out(left_dac_rKirt>er&,gain_left&<chanr»el_riuraber&)) 

1925 adac out(right - dac_number& # gain_right& (channe l_number&)> 

1926 ' 

1927 ELSE 

1928 1 

1929 adac_out(left_dac - noi4>er&,dac - inLJte&) I mute the channel if not active 

1 930 adac_out ( r i gh t_dac_number& , dac_mute&) 

1931 EMOIF 
1932 

1933 RETURN 

1934 ' 

1935 DEFFN address_out 1 < regX, byteX>=OR<OR<SHL< regX, 12) , byteX) , wri te_eddressX> 

1936 ' this function encodes the output address for the voyager port 

1937 1 

1938 DEFFN address_out<regX,byteX)=<regX*&Hl000) OR byteX OR &HFBOOO0 

1939 1 at least this one works 

1940 ' - 

1941 PROCEDURE dac_out<dacX,dataX> 
1942 
1943 
1944 
1945 
1946 

1947 IF port_write! I check for I/O inhibit 

1948 ~BYTE{aaddress_out<0,BSET<dacX,6)>} I setup address on port 0, bit 6 set 

1949 —BYTE{aaddress_outCl,BYTE(dataX))} I setup low byte - byte 

1950 — BYTE{aaddress_outC2,AND(SHR(dataX,8) # &HF))} ! setup high byte - nibble 

1951 ~BYTE{aaddress_out ( 0 , dacX)} ! output dac # stobe data_clk 

1952 — BYTE{8address_out(0 / BSET(dacX # 6))} ! strobe data_clk 

1953 END IF 



routine to address DAC and output 12 bits of data to the DAC 
using the Voyager Sound dac/Ateri interface (VGR-ST-VCA-01) 
special GFA pointer is used, much faster than PEEK 
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1954 1 all done 

1955 RETURN 

1956 ' 

1957 PROCEDURE ports_setup ! <1) write : (0) read 

1958 IF port_write! I set all 3 8-bit ports to write 

1959 FOR i&*3 TO 5 

1960 ~BYTE{aaddress_out( i& r &X1 1111111)} 

1961 NEXT i& 

1962 END IF 

1963 RETURN 

1964 1 

1965 ' 

1966 PROCEDURE pop_menu ( pop_menu_x& , pop_menu_y & , VAR flagS) 

1967 1 

1968 1 

1969 LOCAL x&,y&,k&,i& 

1970 LOCAL popx&,popy& # popk&,popxdif& f popydif& 

1971 LOCAL pcplx&,poprx&,popty& f popby& 

1972 LOCAL numlines*, left&, right& # top& r bottom& # xbias& f highx&,highy& 

1973 LOCAL string I ength&,choice&,tempuse$,si*er&,rez&,txt& 

1974 DIM popline$(30) ! temp storage for menu 

1975 popx&= pop_menu_x& 

1976 popy&=popjnenu_y& 

1977 1 

1978 1 all variables local to this and called procedures 

1979 1 

1980 FOR x&=0 TO 24 

1981 READ popline$(x&) 

1982 EXIT IF popUneSCx&^kxx" ! end of data array for menu 

1983 NEXT x& 

1984 numlines&=x&-1 

1985 1 

1986 IF nuralines&<2 ! no point in menu array this small - ERROR ? 

1987 ALERT 3,'fcrror in popjnenu cal l",1 "Abort" # x& 

1988 flagSe 1 -^' ! error flag passed back to calling routine 

1989 END IF 

1990 ' 

1991 1 vertical spacing 

1992 rez&=XBIOS<4) I get resolution 

1993 1 

1994 ' 

1995 y&=0 

1996 FOR x&=0 TO num lines* 

1997 popline$<x&>* ^TRIH$<popline$Cx&>)+ ,,t, ! clean up the strings 

1998 y&=«AX<y&,LEN<popline$Cx&)>) I get max line length 
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1999 NEXT X& 

2000 ' clean up title line and center 

2001 IF LEN(poplineS(0>>=>y& I is title larger than menu entry 

2002 ADD y&,3 

2003 END IF 

2004 string I ength&=y& 

2005 ' 

2006 poplx&sO 

2007 popty&=0 

2008 ' 

2009 IF rez&sO I if low resolution 

2010 sizer&=7 ! change for different font sizes 

2011 txt&=4 

2012 xbias&=21 

2013 OEFTEXT 1,0,0,txt& 

2014 poprx&=y&*6+10 

2015 popby&=numl i nes&*7+ 1 6 

2016 highx&=318 

2017 highy&=199 

2018 ELSE IF rez&=1 ! medium resolution 

2019 sizer&=10 

2020 txt&=6 

2021 xbias&=22 

2022 DEFTEXT 1,0,0,txt& 

2023 poprx&=y&*8+10 ! horz. size of the popmenu box set by max size 

2024 popby&=numlines&*10+16 ! vertical size of box 

2025 highx&=639 

2026 highy&*199 

2027 ELSE IF rez&=2 i mono 

2028 sizer&=12 

2029 txt&=13 

2030 xbias&=32 

2031 DEFTEXT 1,0,0,txt& 

2032 poprx&=y&*12+10 

2033 popby&=numl ines&*14+16 

2034 highx&*639 

2035 highy&=399 

2036 END IF 

2037 ' 

2038 ' wait loop for menu position info 

2039 ' 

2040 SHOUH 

2041 DEFMOUSE 0 

2042 popk&^MOUSEK 

2043 ' 
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2044 1. pop. Label: 



2045 SETMOUSE popx&+9,popy&+7 ! now set the mouse 

2046 1 

2047 popxdi f&=poprx&- pop I x& 

2048 popydif&=popby&-popty& 

2049 poplx£=popx& 

2050 poprx&=popx&+popxdi f & 

2051 popty&=popy& 

2052 popby&*popy&+popyd i f & 
2053 

2054 left&«poplxfr«-1 ! setup margins 

2055 right&=poprx&-1 

2056 top&=popty&+1 1 

2057 bottom&=top&+( numl i nes**s izer&) 

2058 ' 

2059 IF right&>highx& AND bottom&>highy& ! test mouse, margin limits 

2060 popx&=highx&- popxdi f& 

2061 popy&=highy&-popydif& 

2062 GOTO 1. pop. label 

2063 END IF 

2064 IF right&>highx& 

2065 popx&=highx&- popxdi f& 

2066 : GOTO 1. pop. label 

2067 END IF 

2068 IF bottom&>highy& 

2069 popy&=h i ghy&- popyd i f & 

2070 GOTO 1. pop. label 

2071 END IF 

2072 ' 

2073 SGET tempuseS 

2074 DEFFILL 0,2,8 

2075 GRAPHM00E 1 

2076 apop_box 

2077 SHOWN 

2078 REPEAT 

2079 choice&*-2 ! this means initialze pop menu 

2080 MOUSE x&,y&,k& 

2081 ' 

2082 1 First the Close Menu Box 

2083 IF x&>poplx& AND y&>popty& AND y&<popty&+10 AND x&<poplx&+20 AND k&=1 

2084 DEFFILL 1,2,8 

2085 PRBOX poplx&,popty&,poplx&+20,popty&+12 

2086 GRAPHH0DE 3 

2087 DEFT EXT 1,0,0,6 

2088 TEXT poplx&+6,popty&+9,CHRS<5) 
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2089 PAUSE 10 

2090 OEFFILL 0,2,8 

2091 GRAPHM00E 1 

2092 PRBOX poplx& # popty& # poplx&+20,popty&+12 

2093 RBOX poplx&,popty&,poplx&+20 f popty&+12 

2094 TEXT poplx&+6,popty&+9,CHR$<5) 

2095 DEFTEXT 1,0,0,txt& ! restore to proper rez text 

2096 PAUSE 5 

2097 choice&=-1 

2098 END IF 

2099 ' 

2100 1 Mow the Title Bar 

2101 IF x&>poplx&+20 AND x&<right& AND y&>popty& AND y&<poptyfc+10 AND k&*1 

2102 DEFFILl 1,2,1 

2103 PRBOX poplx&,popty&,poprx&,popty&+12 

2104 DEFFILL 0,2,8 

2105 PRBOX poplx&,popty&,poplx&+20 f popty&+12 

2106 RBOX poplx&,popty&,poplx&+20,popty&+12 

2107 TEXT poplx&+6,popty&+9,CHRS(5) 

2108 GRAPH WOO E 4 

2109 TEXT poplx&+xbias&,popty&+8,popline$(0) 

2110 GRAPHMODE 1 

2111 choice&=0 

2112 PAUSE 5 

2113 ENDIF 

2114 * 

2115 ' Now for the Menu Options 

2116 IF x&>left& AND x&<right& AND y&>top& AND y&<bottom& AND k&<>1 

2117 1 

2118 FOR i&=1 TO numlines& 

2119 pop_options<i&,x&,y&,k&,choice&) f TEST FOR ALL options 

2120 NEXT i& 

2121 1 

2122 ENDIF 

2123 1 

2124 UNTIL k&=1 AND choice&>-2 AND x&<right& AND x&>left& AND yfc>top&-12 AND y&<bottom& 
2125 

2126 1 clean up screen and free memory 

2127 ' 

2128 SPOT tetnpuseS ! put the old screen back 

2129 tempuse$=* ! null the screen buffer 

2130 ' 

2131 ~GRAF_SHRINKBOX(poplx&,popty&,20,5 f pc^lx&,pop^ 

2132 ' 

2133 IF choice&>-1 
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2134 f leg$=poplir>e$<choice&) 

2135 ELSE 

2136 f LagS= n -2T ! some kind of error 

2137 END IF 

2138 ERASE poplineSO 

2139 RETURN 

2140 EKO 

2141 ' 

2142 ' 

2143 ' 

2144 PROCEDURE pop.box 

2145 LOCAL x& 

2146 ~GRAF_GR0UBOX(|X>plx&,popty&,10J^ 

2147 PRBOX poplx&,popty& # poprx& # popby& 

2148 RBOX poplx&,popty& f poprx& # popby& 

2149 DEFFILL 1,2,1 

2150 PRBOX poplx&,popty&,poprx&,popty&+12 

2151 DEFFILL 0,2,8 

2152 PRBOX poplx& f popty&,poptx&+20 / popty&+12 

2153 RBOX poplx&,popty& # poplx&+20 # popty&+12 

2154 DEFTEXT 1,0,0,6 

2155 TEXT poplx&+6,popty&+9,CHRSC5) 

2156 DEFTEXT 1,0,0,txt& 

2157 ' 

2158 TEXT popLx&+xbias&,popty&+8,poplfne$(0) ! modified for resolutions 

2159 * 

2160 FOR x&=1 TO numlines* 

2161 TEXT left&,ADD<top&,HUL(x&,sizer&)),poplineS<x&) 

2162 NEXT x& 

2163 RETURN 

2164 ' 

2165 ' - 

2166 * 

2167 PROCEDURE pop_options<nuntoer&,VAR x&,y&,k&,choice&) 

2168 LOCAL opt1&,opt2& 

2169 HOUSE x&,y&,k& 

2170 opt1&=HUL(SUB<ntnber&, 1 ) , si zer&) 

2171 opt2*=HUL(nuraber& r sizer&> 

2172 IF y&>top&+opt1& AND y&<top&+opt2& 

2173 GRAPHHOOE 1 

2174 TEXT left& # top&+opt2&,SPACES<stringlength&) 

2175 GRAPHHOOE 4 

2176 TEXT teft&,top8r+opt2&,popline$<nun4ier&> 

2177 SHOUH 

2178 REPEAT 
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2179 MOUSE x&,y&,k& 

2180 UNTIL k&=1 OR y&<top&+opt1& OR y&>toc*+opt2& OR x&<left& OR x&>right& 

2181 GRAPHHODE 1 

2182 TEXT left& f top&+opt2&,poplir>e$<number&) 

2183 choice&=number& 

2184 END IF 

2185 RETURN 

2186 ' - * 

2187 PROCEDURE coaput e_po I ar ( x& , y& , VAR decibels, angle&> 

2188 9 get current polar values for cursor / non- linear not here 

2189 LOCAL xr # yr f radius 

2190 yr=SUB<ygraph_offset&,y&)*scale 

2191 xr=SUB(x&,xgraph_offset&) 

2192 rod i us=SQR ( xr*xr+yr*yr ) 

2 1 93 dec i be I s=- ROUND ( rad i us*d_sca I e , 2 > 

2194 IF yr==0 

2195 anglefc»90*SGN<xr> 

2196 ELSE 

2197 angle&=OEG(ATN<xr/yr)> 

2198 END IF 

2199 RETURN 

2200 ' 

2201 PROCEDURE screenjxif f erjsresetCbuf f er&,screen$) 

2202 LOCAL buf f er_address% 

2203 SELECT buffer& 

2204 CASE 1 

2205 buffer_address%=s_buffer_a% 

2206 CASE 2 

2207 buffer_aotfress%=s_buffer_b% 

2208 ENDSELECT 

2209 -^BIOS(5,L:buffer_eddress%,L:-1,W:-1) ! set logical screen 

2210 SPUT screens 

2211 ~XBIOS(5,L:screen_base%,L:-1,W:-1) I set back to main screen 

2212 RETURN 

2213 1 

2214 PROCEDURE screen_wri te(mode&) 

2215 LOCAL x&,y&,k&,i& 

2216 ~OCBI0S(5,L:s_buffer_aX,L:-1,U:-1) ! set buffer as logical 

2217 SPUT mix_screen$ ! background into buffer 

2218 FOR i&=1 TO icon_count& ! re_write all icons to screen 

2219 IF active! <i&) 

2220 PUT SUB(xc&<i&),x - bias&(i&)) # SUB(yc&(i&) f y.bias&<i&>),iconsS(ifc),6 

2221 END IF 

2222 NEXT i& 

2223 SELECT mode& ! write cursor location 
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2224 



CASE 1 



2226 



2225 



HOUSE x& f y&,k& 

IF xfr*-15<x_linrit& AMD y&>y_limit& 



2227 



Sconpute fl jx>lar(x& # y& r dfsplay_decibels # display_arigle&) I output current cursor 



2230 



2228 



2229 



ATEXT x&-15,y^9,0,STR*(display_decibels,5) 
ATEXT x&+7,y&-1,0,STRS<display_angle&,3> 
EKOIF 



2231 EMD SELECT 

2232 ~XBIOS(5,L:screen_baseX,L:-l,U:-1) f main as logical screen 

2233 BMOVE re_buf f erX, re_screeri%, re_bytes* ! copy off buffer to main screen 

2234 RETURN 

2235 ' 

2236 PROCEDURE gain<icon&, inc&) ! pan constant magnitude 

2237 LOCAL gain& 

2238 IF active! <icon&) 

2239 gain^IH(HAX(ADDCfnag&Cicof>&) # inc&) # 0) # mag_lirait&) ! set limits 

2240 xc&( icon&)=gain£*SIKQ(ang&(icon&))+xgraph_offset& ! graphic coordinates 

2241 yc&(icon&)=ygraph_offset&-(<gain&*COSQ(ang&(icon&)))/scale> 

2242 mag&(icon&>=gain& 

2243 9db_outCicon&) 

2244 Sactive^update 

2245 END IF 

2246 RETURN 

2247 * 

2248 PROCEDURE pan( icon&, inc&> ! pan constant magnitude 

2249 LOCAL angle* 

2250 IF active! (icon&) 

2251 angle&=MIN(KAX(ADD(ang&Cicon&) # inc&) / -90) f 90> 

2252 xc&(icon&)=»ag&(icon&)*SINQ<angle&)+xgraph_offset& ! graphic coordinates 

2253 yc&(icon&)*ygr8ph_offset&-C(mag&(icon&>*C0SQ(angle&))/scale) 

2254 ang&Cicon&)-angle& 

2255 Sdb_out(icon&) 

2256 Sactive.update 

2257 END IF 

2258 RETURN 

2259 ' 

2260 PROCEDURE active_update 

2261 screen_writeC0) 

2262 ox&=xc&(active_icon&) 

2263 oy&*yc&(active_icon&) 

2264 x&*ox& 

2265 y&=oy& 

2266 last_r&=mag&(active_icon&) 

2267 las t_e&=angfc ( ac t i ve_ i con& ) 

2268 SpolarCTRUE) 
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2269 ©decibels 

2270 RETURN 

2271 ' 

2272 PROCEDURE db_out(icon&) 

2273 LOCAL bels,a& 

2274 a&*ang*(icon&) 

2275 LET bels=-R0UND(mag&<icon&>*d_scale,2) I round off decibel gain 

2276 non_linear(a&,bels) 

2277 LET decibels(icon&>*bels I assign to data array 

2278 ' 

2279 ' compute Left and right gain components for xfer to OAC 

2280 ' 

2281 IF activel(icon&) 

2282 IF <ABS(a&)>mono_angle&) 

2283 db_left(active_icon&)=HAX(bels+db_coef(ADD(a&,90),0) # -90) ! based on table lookup 

2284 db_right(active_icon&)=KAX(bels+db_coef<AD0Ca&,90) r 1),-90) 

2285 ELSE 

2286 ofe_left<activeJcon&)=HAX(bels-3,-90) 

2287 cto_right(active_icon&>=HAX(bels-3,-90) 

2288 END IF 

2289 achanne L_out ( l con& ) I output to DAC 

2290 END IF 

2291 RETURN 

2292 1 

2293 PROCEDURE old_position ! used by direct procedure 

2294 SETMOUSE x_old_icon&,y_old_icon& 

2295 xc&<ective_icon&)=x_old_icon& 

2296 yc&< act i ve_i con&>=y__old_i con& 

2297 x&=x_old_icon& 

2298 y&=y_old_icon& 

2299 k&=1 ! simulate mouse button down to force update 

2300 RETURN 

2301 ' 

2302 PROCEDURE set_db_a( icon&, decibels ,angle&> 

2303 IF active! (icon&> 

2304 mag&( icon&)=-(decibels/d_scale) 

2305 ang&(icon&>~angle& 

2306 1 xc&< i con&)=mag& < i con& >*S I HQ ( ang I e& )+xgraph_of f se t& 

2307 ' yc&C 1 con&)=ygraph_of fset&- ( <mag&( i con& )*C0SQ< ang I e& ) )/sca I e> 

2308 Sdbout(icon&> 

2309 dscreen_write(0) 

2310 END IF 

2311 RETURN 

2312 ' 

2313 PROCEDURE set_x_y< icon&,x&,y&) 
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2314 LOCAL db,ang& 

2315 IF active! CiconS) 

2316 acoopute_jx>lar(x&,y&,db,ang&) 

2317 aset_db_a<icon&,db,ang&> 

2318 EHOIF 

2319 RETURN 

2320 1 

2321 PROCEDURE sove_all 

2322 OPEN V, #1 , out_fi leS 

2323 WRITE #1 , i con_max&, i con_count& 

2324 FOR i&=1 TO icoo_eountfc 

2325 WRITE #1,xcA(i&>,yc&<i&),xJ>ias&Ci&),yjMa^ 

2326 NEXT 1& 

2327 FOR i&=1 TO icoo_count& 

2328 PRINT #1 # MKI$(LEN(icons$Ci&>)); icons$(i&); ! output the graphic icon 

2329 NEXT i& 

2330 CLOSE #1 

2331 RETURN 

2332 1 - - 

2333 PROCEDURE input_all 

2334 LOCAL i_max&,k&, i_count& 

2335 OPEN "l",m , in_f i le$ 

2336 INPUT #1,i_max&,i_count& 

2337 IF i_max&> i con_max& 

2338 ALERT 1,'krror: Icon count exceeded J j An error for now ",1 /feeturn, k& 

2339 GOTO input_al l_abort 

2340 ELSE 

2341 icon_max&=i__tnax& 

2342 i con_count&= i_count& 

2343 END IF 

2344 FOR i&=1 TO iconcount& 

2345 INPUT #1,xc&(t&),yc&(i&),x_bias&Ci&) # y^ 

2346 NEXT i& 

2347 FOR i&=1 TO icon_count& 

2348 iconsSC i&)=INPUT$(CVI ( INPUT$C2,#1 ) ) ,#1 ) 

2349 NEXT i& 

2350 i nput_a I l_abort : 

2351 CLOSE #1 

2352 RETURN 

2353 ' 

2354 PROCEDURE sort.fi I e(fi lenameS) 

2355 LOCAL count* 

2356 DIM array$C500> 

2357 OPEN T,#1 ,f i lenameS 

2358 RECALL #1 ,array$(),500,countX 
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2359 CLOSE #1 

2360 SSORT arreyS(>,countX 

2361 OPEK 'O',*^ filenames 

2362 STORE #1 , array*<) , count* 

2363 CLOSE #1 

2364 ERASE arraySC) 

2365 RETURN 

2366 ' 

2367 PROCEDURE messageCmsgS) 

2368 PRINT AT<1,24);SPACE*<60>; 

2369 PRINT AT<1,24);msg$; 

2370 RETURN 

2371 1 

2372 PROCEDURE key_cl ick<mode&) 

2373 SELECT mode& 

2374 CASE 1 

2375 SPOKE &H484, PEEK<&H484) OR 1 

2376 CASE 0 

2377 SPOKE &H484,PEEK<&H484> AND NOT 1 

2378 END SELECT 

2379 RETURN 

2380 ' 

2381 PROCEDURE vce_gein_set<dac&,db> 

2382 ' 

2383 * set output DAC to exact DB value with limit checks 
2384 

2385 LOCAL setting 

2386 settin9^SUB(dac_offset&(o^c4) # 20*MAX<HIN(db f db_high) f o5>_low)) 

2387 adac_out(dac&, settings) 

2388 RETURN 

2389 1 

2390 PROCEDURE pre_weight(x&,y&> 

2391 FOR i&=0 TO 5 I preset moving average 

2392 mosxX(i&)=x& 

2393 mosyX(i&>=y& 

2394 NEXT i& 

2395 RETURN 

2396 1 

2397 PROCEDURE non_linear(angle&,VAR bels) ! routine for non-linear scaling of db 

2398 LOCAL tempi 

2399 temp1-CABS<angle&)>60>*1.5 ! if angle > 60 degrees 

2400 IF bels<non_limit+temp1 ! non_limit is < 0 

2401 bels=ABS(bels) ! limit of -90 db 
2402 

bels=-HIN(bels A <1+«bels*r*>n_limit+t^ 
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2403 END IF 

2404 RETURN 

2405 ' - 

2406 PROCEDURE put_clip(w&,h&,VAR icnS) 

2407 LOCAL logical_screenX I routine to reset height and width 

2408 DIM bufferOOl j (32000) 

2409 logical_screen%=XBIOS(3) ! save for reset 

2410 ~XBIOS(5,L:V:buffer00lJ(0),L:-1,U:-1) ! buffer as temp screen 

2411 PUT 0,0,icnS,3 ! onto temp screen 

2412 GET 0,0,w&,h&,icn$ 1 re-map into icnS with limits 

2413 ~XBIQS(5,L: logical_screenX,L:-1 ,U: -1 ) I reset to old logical screen 

2414 ERASE bufferOOl J O 

2415 RETURN 

2416 ' -« 

2417 PROCEDURE vgr_logo(xcntr,ybotm,xk,yk) 

2418 LOCAL X,x1,x2,i,y,w1,w2,r,rx,ry 

2419 1 Voyager Logo Ihs 16aug89 

2420 1 For Low res 

2421 xk = x scaling 

2422 1 yfc = y scaling 

2423 ' xcntr=(320*xk>/2 ! center 

2424 ' ybotm=<200*yk>-(14*yk) ! bottom 

2425 ' Horizontal lines (8) 

2426 DEFLINE 1,1,2,2 

2427 RESTORE vgr_log_1 

2428 vgr_log_1: 

2429 DATA 144,0,39,72,98,118,130,137,144 

2430 READ x 

2431 x=x*xk 

2432 x1*xcntr-x 

2433 x2=xcntr+x 

2434 FOR i=1 TO 8 

2435 READ y 

2436 y=ybotm-yk*y 

2437 LINE x1,y,x2,y 

2438 NEXT i 

2439 ' Vertical line CD 

2440 DATA 84 

2441 READ y 

2442 y=ybotm-yk*y 

2443 LINE xcntr,ybotm,xcntr,y 

2444 ' Circles (4) 

2445 DATA 0,1800,0,0,33,72,111,144 

2446 READ w1,w2,x,y 

2447 x=x*xk+xcnt r 
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2449 



2448 



y=ybotm-yk*y 
FOR f=1 TO 4 



2450 



READ r 



rx*xk*r 



2455 



2454 



2453 



2452 



ry=yk*r 

ELLIPSE x,y,rx,ry,w1,«2 
NEXT i 

1 Ellipses (3) 



2456 DATA 1800 ,3600,0, 144,26,66,92 

2457 READ w1,«2,x,y 

2458 ry=yfc*r 

2459 x=x*xk+xcntr 

2460 y=ybottn-yk*y 

2461 FOR 1=1 TO 3 

2462 READ r 

2463 rx=xk*r 

2464 ELLIPSE x,y,rx,ry,w1 ,w2 

2465 NEXT i 

2466 ' DEFTEXT 3,2,0,32 

2467 ' TEXT xcntr-(45*xk),ybotm-(60*yk), 'Voyager" 

2468 ' End of Logo 

2469 RETURN 

2470 1 

2471 PROCEDURE dolby ! routine for Dolby Screen 

2472 LOCAL o_x&,o_y&,x_p&,y_p&, ra&,an&,mx&,iny&,mk& 

2473 LOCAL x&,y&,oldx&, oi dy& 

2474 CLS 

2475 DEFHOUSE 7 

2476 COLOR 1 

2477 GRAPHH00E 1 

2478 DEFLINE 3,1,1,1 

2479 LINE 639/2,180,639/2,0 

2480 LINE 0,180/2,639,180/2 

2481 DEFTEXT 1,2,0,13, 

2482 TEXT 10,25,'LeFT FRONT* 

2483 TEXT 550,25 /klGHT FRONT" 

2484 TEXT 10,165/tEFT BACfc? 

2485 TEXT 550,165,'klGHT BACK? 1 

2486 DEFTEXT 3,0,0,6 

2487 TEXT 0,199-7," DOLBY SURROUND" 

2488 o_x&=639/2 

2489 o_y&=180/2 

2490 DEFFN x<x_p&>=x_p&-o_x& 

2491 DEFFN y(yj*>=o_y&-y_p& 

2492 PRINT tex_color3$; 
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2493 REPEAT 

2494 SHOUM 

2495 HOUSE mx&,my&,mk& 

2496 dolby_cord 

2497 UNTIL HOUSED 

2498 spline 



2499 RETURN 

2500 * 

2501 ' 

2502 ' SPLINE. LST 

2503 ' 

2504 PROCEDURE spline 



2505 LOCAL sx,sy,h, t,sO,sn,r,dr,s, temp, connect i ,nura_fnax& # step - max& 

2506 LOCAL Txjn&,mx&,ny&,mk& # back&,^^ 

2507 LOCAL i_pred&, dolbyJceyS,dolby$,of f& 

2508 REPEAT 

2509 init_spl ine 

2510 do_spt ine 

2511 ' 

2512 dolbyS=STRINGS(400 f 0> ! setup temp string buffer 

2513 BHOVE cfc)lby_iconX,V:dolby$,400 ! setup med-rez icon from inline 

2514 ' 

2515 PRINT AT<1,1>;SPACES<80>; 

2516 PRINT inverseooS; 

2517 PRINT AT(1 # 1>; W Press ESC to plot new spline or * click mouse to abort" 

2518 PRINT inverseoffS; 

2519 off&=16 

2520 REPEAT 

2521 FOR i&=1 TO num_spt& 

2522 mx&=x_spl ine(i&> 

2523 myfc=y_spl i ne< i&> 

2524 PUT mx&-off&,cny&-off&,dolbyS,6 

2525 dolby_cord 

2526 dolbyJcey*=INKEYS 

2527 EXIT IF dolbyJceyS=CHR$<27) OR HOUSEK 

2528 VSYNC 

2529 VSYNC 

2530 VSYNC 

2531 VSYNC 

2532 VSYNC 

2533 VSYNC 

2534 PUT mx&-off&,my&-off&,dolby$,6 

2535 NEXT i& 

2536 UNTIL HOUSEK OR dolbyJceyS=CHRS(27> 

2537 cleanup_spline 
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2538 UNTIL MOUSE* 

2539 RETURN 

2540 ' 

2541 PROCEDURE init_spltne 

2542 numjnax&=25 

2543 stepjnax&=20 

2544 DIM a ( numjnax& ) , b( numjnax& ) , c < num_max& ) , d ( nun_max& ) 

2545 DIM x_support ( numjnaxS ) , y_suppo rt ( num_max& ) 

2546 DIM x_spline(numjnax&*stepjnax&>,y_spli^ 

2547 RETURN 

2548 ' 

2549 ' 

2550 1 

2551 PROCEDURE cleanup_spline 

2552 ERASE aO^bO^cO^O^^supportO^y^supportO^x.spl ineO,y_spline() 

2553 PRINT inverseoffS; 

2554 dolby*=* I clear icon 

2555 RETURN 

2556 ' 

2557 ' 

2558 1 

2559 PROCEDURE do_spline 

2560 PRINT CHRS<27);'p; ! Turn on inverse text 

2561 REPEAT 

2562 PRINT AT<1 , 1 );SPACE*(80); 

2563 PRINT AT(1,1);" Left Mouse : Set Support Posit ions+SPACE$C5); 

2564 PRINT Ttiflht Mouse Button: Start Interpolation; 

2565 ' 

2566 nun&=-1 

2567 REPEAT 

2568 MOUSE mx&,my&,mk& 
2569 

2570 dolby_cord 

2571 1 

2572 IF n*&=1 AND my&>16 

2573 PCIRCLE mx&,my& r 2 

2574 INC nun£ 

2575 x_support ( num& > =mx& 

2576 y_support < num& ) =my& 

2577 ATEXT rax&,my&+6, 1 ,STRS<num&) 

2578 REPEAT 

2579 UNTIL MOUSEK=0 

2580 END IF 

2581 1 

2582 SHOWN 
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2583 UNTIL num&=num_max& Oft tnk&=2 
2584 

2585 IF num&<2 

2586 ALERT 1,W enough Points, 'selected', l/bontinue'^back* 

2587 ELSE 

2588 ALERT 2/fconnect first Point|with last point ?",l/Yes!No M ,back& 

2589 ' 

2590 IF back&=1 i When closed curve 

2591 connectl*TRUE ! set Flag 

2592 INC numfe ! Raise the number of supporting points 

2593 x_support(rium&>=x_supcort(0) ! and wove to coordinates of the 

2594 y_support<nun&)=y_support(0> ! last point 

2595 ELSE 

2596 connect ! =FALSE 

2597 END IF 

2598 ' 

2599 steps&=step_raax& ! at least 1, highest value * step_max& 

2600 1 

2601 plane_splir>es(rKjri£,steps&,corir>e«^ 

2602 ' 

2603 1 Finished, now display it 

2604 1 

2605 ACLIP 1,0,0,639,399 

2606 num_spl&=nun&*steps& 

2607 r 

2608 FOR cnt&=1 TO num_spl& 

2609 ALINE 

x_spline(PRED<cntO),y_splir»eCPRED<cnt&)),x_splir^^ 

2610 NEXT cnt& 

2611 1 

2612 ACLIP 0,0,0,639,399 

2613 1 

2614 PRINT AT(1,1);SPACE$(80); 

2615 PRINT AT<1,1);" Press any key for new spline. Icon demo with space key";" 

2616 1 

2617 REPEAT 

2618 UNTIL INKEY*=" ! Clear keyboard buffer 

2619 keyfc=INPC2) 

2620 END IF 

2621 1 

2622 UNTIL key&=32 ! End when <Esc> is pressed 

2623 PRINT CHRS^);^ ! Turn off inverse text 

2624 RETURN 

2625 PROCEDURE plane_spl ines<n& f n&, connect ! ,VAR x_support() f y_support(>,x_spline() t y_splineC)> 

2626 LOCAL cnt&,J&,k& 
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2627 ' 

2628 IF connect! l\ 

2629 6X=<x_suppoPt<1)-x_6upport(n&-1))*0.5 ! \ 

2630 sy=(y_supcopt<1>-y_siJpport<r*-1>>*0.5 ! \ Set equal at the 

2631 ELSE 1 ^ support points 0 and n& 

2632 sx=0 I / 

2633 sy=0 I / 

2634 END IF */ 

2635 1 

2636 cub_spliries<n&,sx,sx,x_supportO,bO,c(>,dC5> 

2637 ' 

2638 h=1/m& 

2639 k&=0 

2640 FOR cnt&=1 TO n& 

2641 t=-1 

2642 FOR j&=0 TO mfc-1 

2643 x_spline<k&)=(<d<cnt&)*t+c(cnt&)>*t+b<cnt&))*t+x_support(cnt&) 

2644 ADD t,h 

2645 INC k& 

2646 NEXT j& 

2647 NEXT cnt& 

2648 x_spl i ne< k&)=x_support < n& ) 

2649 9 

2650 cub_spl i nes<n&, sy,sy,y_suppopt() ,b< ) , c< ) , d< ) ) 

2651 ' 

2652 k&=0 

2653 FOR cnt&=1 TO n& 

2654 t*-1 

2655 FOR j&=0 TO m&-1 

2656 y_splir>eCk&)*((d(cTit&)*t+c<cnt&))*t+bCcnt&))*t+y_suppopt<cnt&) 

2657 ADD t,h 

2658 INC k& 

2659 NEXT j& 

2660 NEXT cnt& 

2661 y_spl i ne( k& ) =y_supcor t ( n& ) 

2662 ' 

2663 RETURN 

2664 PROCEDURE cub_spl ines<n&,s0, sn f VAR aO,b(),c(>,dO> 

2665 LOCAL n1&, cnt&, p,dr,s 

2666 nU=n&-1 

2667 1 

2668 b(0)=(e<1)-a(0)-s0)*6 

2669 FOR cnt&=1 TO n1& 

2670 b(cnt&)=Ca(SUCC(cnt&))-a<cnt&)*2+a(PRED(cnt&)))*3 

2671 NEXT cnt& 
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2672 b(nfc)=(a(n1&>-a(n&>+sn>*6 

2673 1 

2674 c(0)=b<0)*0.5 

2675 bt 1 )=bC 1 > -b( 0 )*0 . 25 

2676 r=1.75 

2677 dr«1/r 

2678 cC1>=bCl)/1.75 

2679 FOR cntfc*2 TO n1& 

2680 s=«0.5*dr 

2681 ADD b(cnt&),bCPRED(cnt£))*s 

2682 r=c*0.5+2 

2683 dr=1/r 

2684 c(cnt&)=b(cnt&)*dr 

2685 NEXT cnt& 

2686 ' 

2687 s=-dr 

2688 b(ni)=b(ni)+b(nU)*s 

2689 r=s*0.5+2 

2690 c(n&)=b(n&)/r 

2691 FOR cnt&=n1& TO 1 STEP -1 

2692 IF b(cnt&>=0 

2693 tonp=1.0E-09 

2694 ELSE 

2695 temp=b(cnt&) 

2696 END IF 

2697 HUL c(cnt&),1-c<SUCC(cnt&))/tenp*0.5 

2698 NEXT cnt& 

2699 1 

2700 IF b(0)=0 

2701 tonp=1.0E-09 

2702 ELSE 

2703 teop=b(0) 

2704 END IF 

2705 ' 

2706 cC0>=c(0)*(1-cCD/tenp) 

2707 FOR cnt&=1 TO n& 

2708 i_pred&=PRED(cnt&) 

2709 b(cnt&)=a(cnt&)-a( T_pred&>+(cCcnt&>*2+c< i_pred&) >/6 

2710 d(cnt&)=(c<cnt&>-c(i_pred&))/6 

2711 NEXT cnt& 

2712 ' 

2713 FOR cnt&=1 TO n& 

2714 HUL c(cnt&),0.5 

2715 NEXT cnt& 

2716 RETURN 
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2717 ' 

2718 PROCEDURE dolby_cord 

2719 x&=ax(mx&) 

2720 y&«ay(my&) 

2721 ra&=SQR<x&*x&+y&*y&> 

2722 ' 

2723 IF y&=0 

2724 an&=90*SGN<x4) 

2725 ELSE 

2726 an&=DEG(ATN<x&/yfc>) 

2727 END IF 

2728 ' 

2729 IF y&<0 AMD x&<0 I 3rd quadrant 

2730 an&=-180+an& 

2731 END IF 

2732 IF y&<0 AND x&>0 ! 4th quadrant 

2733 an&=180+en& 

2734 END IF 

2735 ' 

2736 IF x&<>oldx& OR y&<>oldy& 

2737 oldx&=x& 

2738 oldy&=y& 

2739 PRINT AT (67,23); USING \-HUU4i Y=###rf',x&,y&; 

2740 PRINT AT(67,24);USING \= MM ra&,an&; 

2741 END IF 

2742 RETURN 

2743 ' 

2744 PROCEDURE solo ! routine to solo active icon 

2745 ARRAYFILL solo! (), FALSE ! preset array to false 

2746 solo! < act ive_icon&)=TRUE 1 the solo channel 

2747 SWAP solo! O, active! (> 

2748 solo_iogic!=TRUE 

2749 update 

2750 ' 

2751 REPEAT 

2752 UNTIL MOUSEK OR INKEYSO" 
2753 

2754 SWAP solo! O, active! O 

2755 so I o_ I og i c ! =FALSE 

2756 update 

2757 RETURN 

2758 1 

2759 PROCEDURE solo_on 

2760 FOR i&=0 TO icon_count& 

2761 solo! ( i&)xact ive! (i&) 
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2762 NEXT i& 

2763 ARRAY FILL active! <), FALSE 

2764 active! Cacti ve_icon&)=TRUE 

2765 so I o_ I og i c I =TRUE 

2766 update 

2767 RETURN 

2768 ' 

2769 PROCEDURE solo_off 

2770 FOR i&=0 TO i con_count& 

2771 active! ( i&)=solo!(i&) 

2772 NEXT i& 

2773 solo_logic!=FALSE 

2774 mix_solo! =FALSE 

2775 update 

2776 RETURN 

2777 ' 

2778 1 

2779 1 

2780 ' 
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1 1. An apparatus for controlling multiple 

2 parameters affecting an audio output, said apparatus 

3 comprising 

4 a controller including a visual display for 

5 displaying a visual representation of an input sound 

6 signal in a multidimensional space and generating a 

7 multiple parameter control signal controlling multiple 

8 parameters affecting an audio output, said control signal 

9 being based upon the location of said representation in 

10 said multidimensional space, 

11 an input device connected to said controller to 

12 control the location of said representation in said 

13 multidimensional space, and 

14 a sound signal processing circuit having a sound 

15 signal input for receiving a sound input signal, a sound 

16 signal output for providing a sound output signal, and a 

17 control signal input for receiving said multiple 

18 parameter control signal, said circuit modifying said 

19 sound input signal based upon said multiple parameter 

20 control signal to provide said sound output signal. 

1 2 . The apparatus of claim 1 wherein said 

2 controller is an interactive controller, and said input 

3 device is an interactive input device. 

1 3. The apparatus of claim 1 wherein said display 

2 displays a plurality of visual representations of 

3 respective input signals, and said sound signal 

4 processing circuit has a plurality of sound signal 

5 inputs . 
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4. The apparatus of claim 1 wherein said 
multidimensional space represents a multiple channel 
output mix environment, said multiple parameters include 
gains associated with each said output, and said sound 
signal processing circuit provides a plurality of output 
signals. 

5. The apparatus of claim 4 wherein said 
multidimensional space represents a stereo mix 
environment, said multiple parameters include left and 
right gain, and said sound signal processing circuit 
provides a left sound output signal and a right sound 
output signal. 

6. The apparatus of claim 4 wherein said display 
has a hard left region with which a muted left gain 
control signal is associated and a hard right region with 
which a muted left gain control signal is associated. 

7. The apparatus of claim 5 wherein said multiple 
parameters include left front, center front, right front, 
and rear gain, and said sound signal processing system 
provides left front, center front, right front, and rear 
output signals. 

8. The apparatus of claim 1 wherein said multiple 
parameters include one or more reverb parameters, and 
said sound signal processing circuit includes a reverb 
unit that is controlled by said multiple parameter 
control signal. 

9. The apparatus of claim l wherein said multiple 
parameters include one or more equalization parameters, 
and said sound signal processing circuit includes an 
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1 equalizer that is controlled by said multiple parameter 

2 control signal. 

1 10. The apparatus of claim 1 wherein said 

2 multiple parameters include one or more filtering 

3 parameters, and said sound signal processing circuit 

4 includes a filter that is controlled by said multiple 

5 parameter control signal. 

1 11. The apparatus of claim 1 wherein said 

2 multiple parameters include one or more compression 

3 parameters, and said sound signal processing circuit 

4 includes a dynamics processor that is controlled by said 

5 multiple parameter control signal. 

1 12. The apparatus of claim 1 wherein said 

2 multidimensional space represents a scene of an 

3 audiovisual work, and locations in said space associated 

4 with locations in said scene have associated audio 

5 parameter sets. 

1 13. The apparatus of claim 12 wherein said audio 

2 parameter sets include values for compression, 

3 equalization, reverb or delay associated with locations 

4 and physical objects in said scene, and said sound 

5 processing circuit includes compression, equalization, 

6 reverb or delay circuitry. 

1 14. The apparatus of claim 13 wherein said 

2 multiple parameters include multidimensional gain values 

3 associated with a location of a source of a sound input 

4 signal in said scene. 
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1 15. The apparatus of claim 4 wherein said visual 

2 representation is displayed with respect to a listener 

3 origin, and the location of said representation is 

4 characterized on said display in polar coordinates 

5 including a radius component and an angular displacement 

6 component. 

1 16. The apparatus of claim 15 wherein said visual 

2 representation is displayed on a display which simulates 

3 three dimensions with respect to a listener origin , and 

4 the location of said representation is characterized on 

5 said display in polar coordinates including a radius 

6 component and two angular displacement components. 

1 17. The apparatus of claim 15 wherein said radius 

2 component corresponds to a gain for a mix of said input 

3 signal, and said angular displacement component 

4 corresponds to relative amounts of said input signal in 

5 said output signals. 

1 18. The apparatus of claim 17 wherein said 

2 display has a fadeout region, and movement of a 

3 representation within the fadeout region away from the 

4 listener origin results in accelerated fadeout of the 

5 output signals. 

1 19. The apparatus of claim 17 wherein units of 

2 gain associated with said radius component are 

3 rescalable. 

1 20. The apparatus of claim 3 wherein said visual 

2 representations have changes in appearance that are 

3 associated with changes in value of a said multiple 

4 parameter . 
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1 21. The apparatus of claim 20 wherein said change 

2 in appearance is a change in color . 

1 22. The apparatus of claim 4 wherein said sound 

2 signal processing circuit includes 

3 a controllable amplifier for each said output 

4 signal , 

5 each said controllable amplifier being 

6 connected to receive said input sound signal and a gain 

7 control signal to provide a respective amplified sound 

8 input signal as said sound output signal f said multiple 

9 parameter control signal including said gain control 
10 signal. 

1 23. The apparatus of claim 22 wherein 

2 each said controllable amplifier includes a 

3 digital-to-analog converter and a voltage controlled 

4 amplif ier, 

5 said gain signal includes a multibit digital 

6 word that is provided to said digital-to-analog 

7 converter , 

8 said digital-to-analog converter provides a 

9 control voltage to said voltage controlled amplifier , and 

10 said voltage controlled amplifier controls said 

11 amplitude of said output signal based upon said control 

12 voltage. 

1 24. The apparatus of claim 23 wherein said 

2 digital-to-analog converters provide slew limiting of 

3 said control voltage to eliminate control voltage 

4 artifacts in the sound output signal. 
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1 25. The apparatus of claim 22 wherein said 

2 controller provides address and control information to 

3 said sound signal processing circuit, 

4 and said address and control information 

5 controls gain updating of particular controllable 

6 amplifiers. 

1 26. The apparatus of claim 25 wherein 

2 said sound signal processing circuit includes 

3 a decoder circuit, 

4 said decoder circuit receives said address 

5 and control information and provides enable signals to 

6 said controllable amplifiers, and 

7 said enable signals enable the gain updating 

8 of particular controllable amplifiers. 

1 27. The apparatus of claim 3 wherein said 

2 multidimensional space represents a multiple channel 

3 output mix environment with N output channels, said 

4 multiple parameters include a gain associated with each 

5 unique combination of an input sound signal and an output 

6 sound signal, and said sound signal processing circuit 

7 provides N output signals and includes M times N 

8 controllable amplifiers, where M is the number of input 

9 signals, the outputs of said amplifiers that are 

10 associated with the same output channel being added to 

11 each other to provide said N output signals, each said 

12 controllable amplifier being connected to receive a said 

13 input sound signal and a unique gain control signal, said 

14 multiple parameter control signal including said gain 

15 control signals. 
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1 28. The apparatus of claim 27 wherein 

2 each said controllable amplifier includes a 

3 digital-to-analog converter and a voltage controlled 

4 amplifier, 

5 said gain signal includes a multibit digital 

6 word that is provided to said digital-to-analog 

7 converter , 

8 said digital-to-analog converter provides a 

9 control voltage to said voltage controlled amplifier , and 

10 said voltage controlled amplifier controls said 

11 amplitude of said output signal based upon said control 

12 voltage. 

1 29. The apparatus of claim 28 wherein said 

2 digital-to-analog converters provide slew limiting of 

3 said control voltage to eliminate control voltage 

4 artifacts in the sound output signal. 

1 30. The apparatus of claim 27 wherein said 

2 controller provides address and control information to 

3 said sound signal processing circuit, 

4 and said address and control information 

5 controls gain updating of particular controllable 

6 amplifiers. 

1 31. The apparatus of claim 30 wherein 

2 said sound signal processing circuit includes 

3 a decoder circuit, 

4 said decoder circuit receives said address 

5 and control information and provides enable signals to 

6 said controllable amplifiers, and 

7 said enable signals enable the gain updating 

8 of particular controllable amplifiers. 
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32. The apparatus of claim 1 wherein said 
controller includes means for storing state information 
as to the positions of said visual representations on 
said display , and means for recalling said state 
information to control the positions of said visual 
representations . 

33. The apparatus of claim 32 wherein said state 
information is static state information indicating the 
instantaneous positions of said visual representations. 

34. The apparatus of claim 32 wherein said state 
information is time dependent state information 
indicating the changes with time of the positions of said 
visual representations on said display. 

35. The apparatus of claim 32 further comprising 
means to edit stored state information. 

36. The apparatus of claim 34 wherein said 
interactive controller includes means for creating time 
dependent state information from static state information 
by determining gradual transitions between specified 
states in said static state information. 

37. The apparatus of claim 3 wherein said visual 
representations are icons that are images of sources of 
the input sound signals. 

38. The apparatus of claim 37 wherein said 
sources are musical instruments, and said icons are 
images of said musical instruments. 
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3 39. The apparatus of claim 4 wherein said visual 

4 representation includes text indicating said sound input 

5 signal. 

x 40. An apparatus for controlling multiple 

2 parameters affecting an audio output, said apparatus 

3 comprising 

4 a controller including a visual display for 

5 displaying visual representations of input sound signals 

6 and generating a control signal controlling a parameter 

7 affecting an audio output, said visual representations 

8 being icons that are images of sources of the input sounc 

9 signals, said control signal being based upon the 
10 location of a said representation on said display, 

1X an input device connected to said controller to 

12 control the locations of said representations on said 

13 display, 

14 a sound signal processing circuit having sound 

15 signal inputs for receiving sound input signals, a sound 

16 signal output for providing a sound output signal, and a 

17 control signal input for receiving said control signal, 

18 said circuit modifying said sound input signals based 

19 upon said control signal to provide said sound output 

20 signal. 

1 41. The apparatus of claim 40 wherein said 

2 controller is an interactive controller, and said input 

3 device is an interactive input device. 

x 42. The apparatus of claim 4 0 wherein said 

2 sources are musical instruments, and said icons are 

3 images of said musical instruments. 
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43. An apparatus for controlling multiple 
parameters affecting the modification of M input sound 
signals to provide N output sound signals, said apparatus 

4 comprising 

5 a controller generating M times N gain control 
signals that each control the gain of a said input signal 
being used to generate a said output signal, and 

a sound signal processing circuit having M sound 
signal inputs for receiving said sound input signals, N 
sound signal outputs for providing said sound output 
signals, and M times N controllable amplifiers receiving 
said gain control signals, said multiple parameters 
including a gain associated with each unique combination 
of an input sound signal and an output sound signal, said 
sound signal processing circuit providing N output 
signals and including M times N controllable amplifiers, 
the outputs of said amplifiers that are associated with' 
the same output channel being added to each other to 
provide said N output signals, each said controllable 
amplifier being connected to receive a said input sound 
signal and a unique, continuously variable gain control 



22 signal. 

1 44. The apparatus of claim 43 wherein said 

2 controller is an interactive controller. 
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45. The apparatus of claim 43 wherein 

2 each said controllable amplifier includes a 

3 digital-to-analog converter and a voltage controlled 

4 amplifier, 

5 said gain signal includes a multibit digital 

6 word that is provided to said digital-to-analog 

7 converter , 

8 said digital-to-analog converter provides a 

9 control voltage to said voltage controlled amplifier, and 

10 said voltage controlled amplifier controls said 

11 amplitude of said output signal based upon said control 

12 voltage. 

! 46. The apparatus of claim 45 wherein said 

2 digital-to-analog converters provide slew limiting of 

3 said control voltage to eliminate control voltage 

4 artifacts in the sound output signal. 

x 47. The apparatus of claim 43 wherein said 

2 controller provides address and control information to 

3 said sound signal processing circuit, 

4 and said address and control information 

5 controls gain updating of particular controllable 

6 amplifiers. 

x 48. The apparatus of claim 47 wherein 

2 said sound signal processing circuit includes 

3 a decoder circuit, 

4 said decoder circuit receives said address 

5 and control information and provides enable signals to 

6 said controllable amplifiers, and 

7 said enable signals enable the gain updating 

8 of particular controllable amplifiers. 
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49. The apparatus of claim 22 wherein there an 
plurality of outputs, and a said output is connected to 
an external audio effects processor, said audio effects 
processor having an output that is an input to a said 
controllable amplifier. 
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